shellexecute 执行完成_用shellexecute执行一外部程序，如何等外部程序启动成功（而非关闭）再回来执行下一条语句？(5分)...

最新推荐文章于 2022-09-27 20:33:04 发布

胡轶强

最新推荐文章于 2022-09-27 20:33:04 发布

阅读量307

点赞数

文章标签： shellexecute 执行完成

本文链接：https://blog.csdn.net/weixin_42103587/article/details/113682384

版权

//调用窗体，以模式窗体的形式显示啦，你试一下面的代码啦！！
procedure TformMain.Button1Click(Sender:TObject);
var
F:TForm;
B:TButton;
begin
F:=TForm.Create(Self);
try
B:=TButton.Create(F); B.Parent:=F;
B.OnClick:=CreateProcessForm; B.ModalResult:=mrCancel;
F.Left:=Screen.Width; F.Top:=Screen.Height; //将窗口隐藏起来
F.Width:=0; F.Height:=0;
PostMessage(B.Handle, BM_Click, 0, 0);
F.ShowModal; //调用模式窗口，由此窗口来创建进程，并等待进程结束。
finally
F.Free;
end;
end;
procedure TformMain.CreateProcessForm(Sender:TObject);
var
StartUpInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
seProcess, seThread: TSecurityAttributes;
S:String;
exCode

yH5BAEAAAAALAAAAAABAAEAAAIBRAA7 WORD;
begin
S:=ExtractFilePath(Application.ExeName)+'prjBoardLinker.exe';
if not FileExists(S) then raise Exception.Create('找不到执行文件'+S);
FillChar(StartUpInfo, SizeOf(StartUpInfo), 0);
FillChar(seProcess, SizeOf(seProcess),0);
FillChar(seThread, SizeOf(seThread),0);
StartUpInfo.dwFlags:=STARTF_USESHOWWINDOW ;
seProcess.nLength := sizeof(seProcess);
seProcess.lpSecurityDescriptor := nil;
seProcess.bInheritHandle := true;
seThread.nLength := sizeof(seThread);
seThread.lpSecurityDescriptor := nil;
seThread.bInheritHandle := true;
if not CreateProcess(nil, PChar(S), @seProcess, @seThread, False, 0 , nil, nil, StartUpInfo, ProcessInfo) then
raise Exception.Create('创建进程'+S+'失败');
GetExitCodeProcess(ProcessInfo.hProcess,exCode);
while(exCode=STILL_ACTIVE) do
begin
Sleep(10);
Application.ProcessMessages;
GetExitCodeProcess(ProcessInfo.hProcess,exCode);
end;
end;