C cmtan Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #1 A程序启动B程序，A程序退出，B程序仍在运行，A如何写？
W watter Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #2 procedure TfrmMain.Button1Click(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
procedure TfrmMain.Button1Click(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
H happyloner Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #3 procedure TfrmMain.onshow(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
procedure TfrmMain.onshow(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
L lich007 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #4 WinExeC('B.exe',SW_SHOW);<br>Close;
C cmtan Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #5 Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br><br>ok<br><br><br>
C cmtan Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #6 Shellexecute(handle, 'open', PChar('B.exe'), nil, nil, SW_SHOW);<br><br>ok
来 来如风 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #7 那尝试一下让a执行一个批处理，批处理中执行b，<br>然后a再关闭呢？
C cmtan Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #8 那尝试一下让a执行一个批处理，批处理中执行b，<br>然后a再关闭呢？<br><br>试了一下，也不行。
来 来如风 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #9 其他的方法嘛，那就要让b的执行不要和a关联了，要不然a关了b也受影响的，<br>再想想看
W watter Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-25 #10 不会吧，我这里是好的，我以前就是这么做的<br>试一下：<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('notepad.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
不会吧，我这里是好的，我以前就是这么做的<br>试一下：<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Shellexecute(handle, 'open', PChar('notepad.exe'), nil, nil, SW_SHOW);<br> Application.Terminate;<br>end;
