unit1.~pas

WINIO DELPHI模拟鼠标键盘DEMO 带帮助的..winio是没有源码的

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  fstyle: dWord;
begin
  fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
  SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER);
  if not InitializeWinIo then
    showmessage('加载winio失败！');
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ShutdownWinIo;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep(strtoint(edit1.Text));
  Application.ProcessMessages;
  //开始模拟单击
  MyMouse($09); //发送左键按下
  MyMouse(0);
  MyMouse(0);
  MyMouse(0);
  sleep(100);
  MyMouse($08); //发送左键释放
  MyMouse(0);
  MyMouse(0);
  MyMouse(0);
  { //如果想使程序效率更高用下面的函数
    SetMouse($09);
    SetMouse(0);
    SetMouse(0);
    SetMouse(0);
    sleep(50);
    SetMouse($08);
    SetMouse(0);
    SetMouse(0);
    SetMouse(0);
  }
end;

procedure TForm1.Memo1Click(Sender: TObject);
begin
  memo1.Text:='我被单击了'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sleep(strtoint(edit1.Text));
  Application.ProcessMessages;
  //开始模拟单击
  MyMouse($0A); //发送右键按下
  MyMouse(0);
  MyMouse(0);
  MyMouse(0);
  sleep(100);
  MyMouse($08); //发送右键释放
  MyMouse(0);
  MyMouse(0);
  MyMouse(0);
  { //如果想使程序效率更高用下面的函数
    SetMouse($0A);
    SetMouse(0);
    SetMouse(0);
    SetMouse(0);
    sleep(50);
    SetMouse($08);
    SetMouse(0);
    SetMouse(0);
    SetMouse(0);
  }
end;

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbRight then
  memo1.Text:='点击右键'
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  sleep(strtoint(edit1.Text));
  Application.ProcessMessages;
  memo1.SetFocus;
  //开始模拟键盘
    MyKeyDown(84);//按下t
    Sleep(50);
    MyKeyUp(84);//弹起t

  { //如果想使程序效率更高用下面的函数
    setkey(MapVirtualKey(84, 0));
    sleep(25);
    setkey(MapVirtualKey(84, 0)or$80);
  }
end;

end.