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;