N netameng Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #1 在WIN2000下使用GetWindowsDirectory，得到的不是/WINNT,而是/Documents And Seting/ USER/WINDOWS,但我想得到系统安装路径，如何做到？
F flintsoft Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #2 function GetWinDir:String; var ;WDir:String; begin ; SetLength(WDir, 144); ; if GetWindowsDirectory(PChar(WDir), 144) <> 0 then ; ; begin ; ; ; SetLength(WDir, StrLen(PChar(WDir))); ; ; end; ; ; Result := WDir; end;
function GetWinDir:String; var ;WDir:String; begin ; SetLength(WDir, 144); ; if GetWindowsDirectory(PChar(WDir), 144) <> 0 then ; ; begin ; ; ; SetLength(WDir, StrLen(PChar(WDir))); ; ; end; ; ; Result := WDir; end;
A Activer Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #3 用GetSystemDirectory 你可以获取WINNT/SYSTEM32，再去掉SYSTEM32就可以了。
N netameng Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-13 #4 你在WIN2000上试过这段代码吗？他返回当前用户路径，而不是[red]安装路径[/red]
