A程序启动B程序,A程序退出,B程序仍在运行,A如何写?(100分)

  • 主题发起人 主题发起人 cmtan
  • 开始时间 开始时间
C

cmtan

Unregistered / Unconfirmed
GUEST, unregistred user!
A程序启动B程序,A程序退出,B程序仍在运行,A如何写?
 
procedure TfrmMain.Button1Click(Sender: TObject);<br>begin<br>&nbsp; Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br>&nbsp; Application.Terminate;<br>end;
 
procedure TfrmMain.onshow(Sender: TObject);<br>begin<br>&nbsp; Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br>&nbsp; Application.Terminate;<br>end;
 
WinExeC('B.exe',SW_SHOW);<br>Close;
 
Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br><br>ok<br><br><br>
 
Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br><br>ok
 
那尝试一下让a执行一个批处理,批处理中执行b,<br>然后a再关闭呢?
 
那尝试一下让a执行一个批处理,批处理中执行b,<br>然后a再关闭呢?<br><br>试了一下,也不行。
 
其他的方法嘛,那就要让b的执行不要和a关联了,要不然a关了b也受影响的,<br>再想想看
 
不会吧,我这里是好的,我以前就是这么做的<br>试一下:<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; Shellexecute(handle, 'open', PChar('notepad.exe'), nil, nil, SW_SHOW);<br>&nbsp; Application.Terminate;<br>end;
 
多人接受答案了。
 
后退
顶部