Delphi 的一些函数(Windows相关)

来源:互联网 时间:1970-01-01

// 获取Windows目录
function GetWindowsPath: String;
var
S:PChar;
begin
GetMem(S, MAX_PATH);
GetWindowsDirectory(S,MAX_PATH);
Result := S;
FreeMem(S);
end;


相关阅读:
Top