{得到系统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;