Diretório do Windows

function GetTempDir: String;
var
  TempDir: array[0..255] of Char;
begin
  GetTempPath(255, @TempDir);
  Result := StrPas(TempDir);
end;

function GetWindowsDir: String;
var
  WinDir: array[0..255] of Char;
begin
  GetWindowsDirectory(@WinDir, 255);
  Result := StrPas(WinDir) + ´\´;
end;