Delphi获取Windows系统目录源代码：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
win_dir,sys_dir:array[0..255] of char;
begin
getwindowsdirectory(@win_dir,40);
getsystemdirectory(@sys_dir,40);
edit1.Text :=win_dir;
edit2.text :=sys_dir;
end;

@放在变量面前，表示获取此变量所在的内存地址。另外，
^在数据类型之前，表示定义一个指针类型；在指针后面，表示获取指针所指向的数据。