高分求救(300)(300分)

希望大家考虑一下程序不激活狀態下就無效。

难道没有人能拿走我这300分吗?

那得用全局Hook！<br>

那怎么用HOOK呀,块点呀,我分等你拿呀!

块来抢分呀!不够再加.

private<br>&nbsp; procedure MyMessage(var Msg: tagMSG;var Handled: Boolean);<br>&nbsp; procedure MyIdle(Sender: TObject;var Done: Boolean);<br><br>...<br>procedure TForm1.FormCreate(Sender: TObject); &nbsp;<br>begin<br>&nbsp; Application.OnIdle :=MyIdle; <br>&nbsp; application.OnMessage := MyMessage;<br>end;<br>procedure TForm1.MyMessage(var Msg: tagMSG;<br>&nbsp; var Handled: Boolean);<br>begin<br>&nbsp;//// if (Msg.Message=wm_lMouseDown)....then &nbsp;//可再对消息具体进行判断和过滤处理<br>&nbsp; Timer1.Enabled := False;<br>end;<br><br>procedure TForm1.MyIdle(Sender: TObject;<br>&nbsp; var Done: Boolean);<br>begin<br>&nbsp; Timer1.Enabled := True;<br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>begin <br>&nbsp; showmessage('30分钟未动')<br>end;

好像在程序里运行不了.

大家说的都差不多<br>截获消息<br>不过不明白为什么一定要用d2？

我后来改了tagMSG －&gt;Tmsg可以用了。<br>你的答案还是满足了我的要求。