动态获得鼠标坐标的delphi代码

发布:admin | 发布时间: 2010年12月28日

为了提高大家的安全意识，前段时间小王设计了一个蜜罐系统（详见《蜜罐系统正式开启》），为了让这个系统全自动，看起来很牛B，我用delphi写了两个小程序，一个是鼠标自动获得屏幕坐标的，一个是鼠标自动点击的，下图右侧是鼠标自动获得屏幕坐标的软件界面，今天把鼠标自动获得屏幕坐标的代码发出来。代码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
p:TPoint;
begin
GetCursorPos(p);
Edit1.Text := IntToStr(p.X)+':'+IntToStr(p.Y);
end;
end.

用了两个控件，一个edit，一个timer，timer设置为1毫秒，相当于每1毫秒刷新一次坐标值。当初为了写这个程序费了不少周折，以为使用某个函数就可以了，没想到还要配合timer实现，最后还是在csdn发帖才解决的，希望对大家有帮助。