摘要: 先上代码 procedure TForm3.Timer1Timer(Sender: TObject); var Point: TPoint; Name: array[0..255] of Char; Buffer: array[0..1023] of Char; AHandle: THandle; 阅读全文
posted @ 2016-04-14 06:06 后凤凰 阅读(408) 评论(0) 推荐(0)
摘要: 先上代码 procedure TForm3.Timer1Timer(Sender: TObject); var Point: TPoint; Name: array[0..255] of Char; Buffer: array[0..1023] of Char; AHandle: THandle; begin //取得鼠标位置 GetCursorPos(Point); ... 阅读全文
posted @ 2016-04-14 05:55 后凤凰 阅读(317) 评论(0) 推荐(0)