procedure win_api;
var st:TStartUpInfo;pp:TProcessInformation;ppp:Thandle;tt:Cardinal;
begin
try
FillChar(st,sizeof(st),#0);
CreateProcess('程序的路径',nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp);
ppp:=OpenProcess(PROCESS_ALL_ACCESS, FALSE,pp.dwProcessId );
GetExitCodeProcess(ppp,tt);
Exitprocess(tt);
except
end;
end;