调用程序，并获得程序结束信息

procedure TForm1.Button3Click(Sender: TObject);
var
? ExitCode: cardinal;
? ExecInfo: TShellExecuteInfo;
begin
? ZeroMemory(@ExecInfo,SizeOf(ExecInfo));
? with ExecInfo do begin
??? cbSize := SizeOf(ExecInfo);
??? fMask := SEE_MASK_NOCLOSEPROCESS;
??? lpVerb := 'open';
??? //lpFile := 'cmd.exe';??? compmgmt.msc /s
??? lpFile := 'compmgmt.msc';
??? lpParameters := pchar('/s');
??? Wnd := self.Handle;
??? nShow := SW_SHOWNORMAL;
? end;

? ShellExecuteEx(@ExecInfo);
? GetExitCodeProcess(ExecInfo.hProcess,ExitCode);
? while ExitCode=STILL_ACTIVE do begin
??? GetExitCodeProcess(ExecInfo.hProcess,ExitCode);
??? sleep(10);
??? Application.ProcessMessages;
? end;
? ShowMessage('成功!')
end;