مرکز تخصصی دلفی

//© 2005 koosha system Software http://delphi-center.blogfa.com
procedure TForm1.Button1Click(Sender: TObject);
var
  WinDir: array[0..255] of Char;
begin
  GetWindowsDirectory(WinDir, MAX_PATH);
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com