{$IFNDEF WIN32} 
 const MAX_PATH = 144; 
{$ENDIF} 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  a : Array[0..MAX_PATH] of char; 
begin 
  GetWindowsDirectory(a, sizeof(a)); 
  ShowMessage(StrPas(a)); 
  GetSystemDirectory(a, sizeof(a)); 
  ShowMessage(StrPas(a)); 
end;