怎样判断一个程序是否已退出? 我用一个程序调用另一个程序,要等它执行完退出后再执行下一步操作,要怎样做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试过成功,不过要知道对方的窗口名称,这里是'Form_okprocedure TForm1.Button1Click(Sender: TObject);var TEMP:HWND;begin temp:=FindWindow(nil,'Form_ok'); if temp<>0 then showmessage('meiyou jie shu') else showmessage('yijing jie shu');end; agree with unsigned(僵哥) SQL语句问题求助 再求一段SQL语句 PC串口连手机模块发送短信 用WebBrower控件时,无法postData,请教高手 100分:主-从报表如何做? 满分:求INDY中的 TidTcp 控件对文件传输的操作。 高分相送:请问VCF132.OCX(控件F1Book1)为什么在打包后安装时会出现注册不了的现象? 这名不知道是什么意思:query1.locate('a1',query2['a2'],[]) 这是我全部的分了,大家来拿吧。 查找目录下文件名 很简单但是线程下就崩溃 关于web service的问题(100) 从学计算机以来的一点感受......
procedure TForm1.Button1Click(Sender: TObject);
var
TEMP:HWND;
begin
temp:=FindWindow(nil,'Form_ok');
if temp<>0 then
showmessage('meiyou jie shu')
else
showmessage('yijing jie shu');
end;