Pfad von Windows ermitteln

[Uncle Cracker]

Bitte schön

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: Array[0..MAX_PATH+1] of Char;
begin
  GetWindowsDirectory(Buffer, MAX_PATH+1);
  Label1.Caption:=StrPas(Buffer);
end;