易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 如何让应用程序依次执行

    我有 p1,p2,p3三个程序，我想让p1运行起来后，再开始运行p2,依次运行p3.我只知道用Shellexecute去执行程序，但如果用Shellexecute执行了p1,我就不知道它什么时候运行好了，可以执行p2了。我的问题，就是要一个捕获程序运行完毕（不是指它结束）的信息，当它运行好了，再去做其它事。
可加互斥量看看行不行，P1启动的时候创建互斥量，成功运行后P1销毁互斥量，p2 p3也一样

var
  i:integer;

while true do
begin
  if (i=0) and not MutexIsExist  then Shellexecute(P1);
  if (i=1) and not MutexIsExist  then Shellexecute(P2);
  if (i=2) and not MutexIsExist  then Shellexecute(P3);
  sleep(n);
end;
如果三个程序是你写的，或者你能修改源代码，那么加入互斥对象就能控制，在你认为好了的地方释放互斥对象就是了，主程序中等待这个互斥对象，成功等待就在调用下一个程序。

如果这三个程序不是你写的，或者说，你不能修改他们，那么就有这样一个问题：
什么状态才算是运行好了？是程序的主窗体出来的还是需要等某种状态结束了才算好了（比如数据库连接成功了算是好了）。
如果是主窗体，那么你只要用FindWindow()函数去检查主窗体是否出来了，如果出来了就调用下一个程序。

如果是判断某种状态，那就需要根据不同的情况采用不同的方式了，具体如何处理，那要看情况了

谢谢 wxieyang 的解说。
呵呵，我想“是程序的主窗体出来了才算好了”，对这个FindWindow()不熟，要是更详细一点，感谢万分！
引用
谢谢 wxieyang 的解说�


相关问答：

小弟不会DELPHI，请大侠们帮个忙

这个是拦截按键消息并测试是否为ENTER键。
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphi Ctrl+左键 无法查看 windows.pas 怎么办

我安装的是企业版。。。 
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。

当然可以,CTRL+左键点击Interface部分的Windows就可以了

啥啥企业版？去安装目录看看lib文件夹下有没� ......

delphi导出后长数据显示不全

Delphi(Pascal) code:

procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......

Delphi中数据库查询的疑惑

昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号