Delphi 的一些函数（Windows相关）

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