1,184
社区成员
发帖
与我相关
我的任务
分享
var
SI : TStartupInfo;
PI : TProcessInformation;
begin
FillChar(SI , SizeOf(SI) , 0);
SI.cb := SizeOf(SI);
CreateProcess(NIL , 'notepad.exe' , NIL , NIL , False , 0 , NIL , NIL , SI , PI);
WaitForSingleObject(PI.hProcess , INFINITE);//等待 notepad执行完成
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;