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;

通过 为知笔记 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/07/26/2609340.html