Pastas - onde esta o windows

Top  Previous  Next

function WindowsDir: string;

var

  WinDir : array[0..144of char;

begin

  GetWindowsDirectory(Windir,144);

  Result := StrPas(Windir);

end;