Delphi調用API函數獲取Windows系統目錄信息

Delphi調用API函數獲取Windows目錄信息、獲取System目錄信息、獲取Temp臨時文件目錄信息，程序通過點擊窗口上的“得到目錄”按鈕，可一次全部獲取指定的目錄路徑和名稱，僅供參考。

vIEw source print? 01 unit MainUnit; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls; 06 type 07   TMainForm = class(TForm) 08     Label1: TLabel; 09     Label2: TLabel; 10     Label3: TLabel; 11     Edit1: TEdit; 12     Edit2: TEdit; 13     Edit3: TEdit; 14     Button1: TButton; 15     procedure Button1Click(Sender: TObject); 16   private 17     { Private declarations } 18   public 19     { Public declarations } 20   end; 21 var 22   MainForm: TMainForm; 23 implementation 24 {$R *.DFM} 25 procedure TMainForm.Button1Click(Sender: TObject); 26 var 27   Str1, Str2: Array[1..Max_Path]of Char;//開辟緩沖區 28   Str3: Array[1..127]of Char; 29 begin 30   GetWindowsDirectory(@Str1, 256);//調用API函數獲取Windows目錄信息 31   GetSystemDirectory(@Str2, 256);//調用API函數獲取System目錄信息 32   GetTempPath(127, @Str3);//調用API函數獲取Temp目錄信息 33   Edit1.Text:= Str1; 34   Edit2.Text:= Str2; 35   Edit3.Text:= Str3; 36 end; 37 end.