Delphi调用API函数获取Windows目录信息、获取System目录信息、获取Temp临时文件目录信息

var

  Str1, Str2: Array[..Max_Path]of Char;//开辟缓冲区

  Str3: Array[..]of Char;

begin

  GetWindowsDirectory(@Str1, );//调用API函数获取Windows目录信息

  GetSystemDirectory(@Str2, );//调用API函数获取System目录信息

  GetTempPath(, @Str3);//调用API函数获取Temp目录信息
end;