Compago

function GetWinDir: string;
var
 dir: array [0..MAX_PATH] of Char; 
begin
 GetWindowsDirectory(dir, MAX_PATH); 
 Result := StrPas(dir); 
end;

function WindowsDirectory: string; 
var
 WinDir: PChar; 
begin
 WinDir := StrAlloc(MAX_PATH); 
 GetWindowsDirectory(WinDir, MAX_PATH); 
 Result := string(WinDir); 
 if Result[Length(Result)] <> '\' then
 Result := Result + '\'; 
 StrDispose(WinDir); 
end;

function GetWindowsDirectory(var S: String): Boolean; 
var
 Len: Integer; 
begin
 Len := Windows.GetWindowsDirectory(nil, 0); 
 if Len > 0 then
 begin
 SetLength(S, Len); 
 Len := Windows.GetWindowsDirectory(PChar(S), Len); 
 SetLength(S, Len); 
 Result := Len > 0; 
 end else 
 Result := False; 
end;