易截截图软件、单文件、免安装、纯绿色、仅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 的解说�


相关问答：

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

DELPHI这种情况怎么办？ - Delphi / Windows SDK/API

就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......

delphi 数组跟for

如何用数组跟for打印出下面的图形
*
**
***
****

如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......

Delphi怎样显示网页的一部分

Delphi
  怎样获取网页部分内容（代码），并且显示出来！
（只是网页里面的一部分内容并不是全部）
没弄懂！

类似websever的功能？
估计是利用ie的接口。。。。。。。。

是类似websever的功能 ......

Delphi中数据库查询的疑惑

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