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;





你可能感兴趣的:(System)