var
FSI: TStartupInfo;
FPI: TProcessInformation;
begin
FillChar(FSI, SizeOf(TStartupInfo), 0);
FSI.cb := SizeOf(TStartupInfo);
FillChar(FPI, SizeOf(TProcessInformation), 0);
if CreateProcess('c:\neteas\eas\Neteas.exe', nil, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, FSI, FPI) then
begin
Caption := Caption + Format(' - New process ID is %d', [FPI.hProcess]);
//进程句柄为FPI.hProcess
end;
end;