Директория WINDOWS

[cargo29]

Как можно узнать где расположена папка WINDOWS??? (путь то есть например C:\WINDOWS\ вот так)

[uberchel]

function getWin: string;
var
 i:cardinal;
 d:array[0..MAX_PATH] of Char;
begin
try
 if getWindowsDirectory(d,i) >0 then
  result:= d;
  except
  result:= 'undifined';
  end;
end;

Использование:

 procedure TForm1.Button1Click(Sender: TObject);
begin
 caption:=getWin;
end;

[asmodey1]

Зачем функа ???

procedure TForm1.Button1Click(Sender: TObject); 
var 
  a : Array[0..MAX_PATH] of char; 
begin 
  GetWindowsDirectory(a, sizeof(a)); 
  ShowMessage(StrPas(a)); 
end;

[cargo29]

Спасибо хорошие коды