Nomadic отвечает:
GetWindowsDirectory
Пример:
var Windir : String; WindirP : PChar; ................................................ WinDirP := StrAlloc(MAX_PATH); Res := GetWindowsDirectory(WinDirP, MAX_PATH); if Res > 0 then WinDir := StrPas(WinDirP); ................................................ |
[001640]