C cf83325 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #1 监视当前活动窗体(比如说我要监视'计算器')，每隔10秒统计一次当前活动窗体是否为活动窗体。急求原代码~~~~~<br>本人一直做数据库,对系统API不熟悉,第一次做监视程序,急求完整的代码~~~~
C cqwty Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #2 关于窗体的监视就是findwindow,代码你就全文检索一下了,很多的.
C cf83325 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #3 急求完整的代码~~~~~~谁写出来,就送分100分
W whatdelphi Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #4 procedure Tform1.Timer1Timer(Sender: TObject);<br>var<br> hdd:Thandle; //窗体的句柄<br>begin<br> hdd := findwindow(nil,'窗体名称');<br> if hdd<>0 then<br> memo1.lines.add('窗体活动中！')<br> else<br> memo1.lines.add('窗体已经关闭！')<br>end;
procedure Tform1.Timer1Timer(Sender: TObject);<br>var<br> hdd:Thandle; //窗体的句柄<br>begin<br> hdd := findwindow(nil,'窗体名称');<br> if hdd<>0 then<br> memo1.lines.add('窗体活动中！')<br> else<br> memo1.lines.add('窗体已经关闭！')<br>end;
W whatdelphi Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #5 把Timer1的Interval设成10000就每10秒检查一次
C cf83325 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #6 findwindow不是判断当前活动窗体,而是获得窗体的句柄,我要的当前活动窗体(解释一下:当前获得焦点的窗体)
C cqwty Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #9 晕死,就是要代码,100分能当饭吃啊,写程序的人不要总是喊别人给你代码撒,已经给你贴了函数了,还有就是全文检索可以检索啊.
R rwlin Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-25 #11 GetActiveWindow() <br><br>正解
C cf83325 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-26 #12 本人已经OK了,谢谢whatdelphi,rwlin.同时也谢谢其他人的参与
