var
Str1, Str2: Array[1..Max_Path]of Char;//开辟缓冲区
Str3: Array[1..127]of Char;
begin
GetWindowsDirectory(@Str1, 256);//调用API函数获取Windows目录信息
GetSystemDirectory(@Str2, 256);//调用API函数获取System目录信息
GetTempPath(127, @Str3);//调用API函数获取Temp目录信息
end;
View Code
|
请发表评论