获取System 目录

获取System 目录只需要用一个Win32 函数就能够实现，此函数为GetSystemDirectory，它的原型如下：

UINT GetSystemDirectory(

LPTSTR lpBuffer, //变量

UINT uSize //变量大小

);

（1）新建一个项目，向窗体上添加一个Edit 组件和一个Button 组件，并设置Button 组件的Caption 属性为“获得”。

（2）为“获得”按钮编写代码。

procedure TForm1.Button1Click(Sender: TObject);

var

MySysPath:PChar;

begin

GetMem(MySysPath,255);

GetSystemDirectory(MySysPath,255); //取得系统目录

Edit1.Text:=MySysPath;

end;