摘要: 第一步:定义全局变量用于状态改变时的对比var Form1: TForm1; OldCI:HICON;第二步:添加Timer组件,Interval设置随意一般50就可以了. 增加Memo组件用于记录状态改变procedure TForm1.Timer1Timer(Sender: TObject);v... 阅读全文
posted @ 2009-09-03 01:35 LAHCS 阅读(420) 评论(0) 推荐(0) 编辑