调用其它执行程序,以模式窗口方式运行

  • A+
所属分类:[开发技巧]

一般情况下,我们创建其他进程时不能将
所创建进程的窗体以模式窗体方式运行,
要么就是调用进程完全死掉等待所调用的
进程执行完毕,要么就是非模式窗口。
下面的程序实现了让被调用的进程以模式
窗口运行。

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:DWORD;
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;

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: