Delphi:获取系统目录的函数

function GetSysDir:String;
var
  p:Pchar;
begin
  GetMem(P,255);
  GetSystemDirectory(p,254);
  result := p;
  Freemem(p);
end;