摘要: 1:用timer控件的函数 procedure TForm1.Timer1Timer(Sender: TObject); var AHandle: THandle; begin AHandle := FindWindow('TMessageForm', PChar(Application.Title)); if AHandle >... 阅读全文
posted @ 2010-12-31 11:20 xun*2 阅读(485) 评论(0) 推荐(0) 编辑