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;