//调用 Edit1.text:=getSys32Path();
function getSys32Path():string;var sPath : PCHAR ;begin GetMem(sPath,255); GetSystemDirectory(sPath,255); Result := sPath;//C:\Windows\system32end;