getSys32Path()得到系统System32路径


{得到系统C:\Windows\system32 路径}

//调用 Edit1.text:=getSys32Path();

function getSys32Path():string;
var
  sPath : PCHAR ;
begin
     GetMem(sPath,255);
     GetSystemDirectory(sPath,255);
     Result := sPath;//C:\Windows\system32
end;





posted @ 2012-07-26 08:50  XE2011  阅读(190)  评论(0编辑  收藏  举报