Pastas - onde esta o windows

function WindowsDir: string;

var

  WinDir : array[0..144] of char;

begin

  GetWindowsDirectory(Windir,144);

  Result := StrPas(Windir);

end;