Aplikasi Simulasi Klik Mouse Delphi #205

andrypein.net : Aplikasi ini memanfaat event message dari windows yang aing tampilkan pada sebuah listbox.

Jelas pengembangannya bisa kearah aplikasi lain yg dewa levelnya seperti bot mungkin.

Pertama-tama buat dulu prosedur privat dengan nama bebas aja terserah, kalo ane evenmouse.

procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure evenmouse(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }

Ini kode prosedur evenmouse nya.

procedure TForm1.evenmouse(var Msg: tagMSG; var Handled: Boolean);
var
  s : string;
begin
  case msg.message of
    WM_LBUTTONDOWN : s:='klik kiri ';
    WM_LBUTTONUP : s:='klik kiri lepas';
    WM_RBUTTONDOWN : s:='klik kanan';
    WM_RBUTTONUP : s:='klik kanan lepas';
    //WM_MOUSEMOVE : s:='mouse gerak';
  else
    s:='';
  end;
  if (s <> '') then
    begin
      ListBox1.Items.Insert(0, s);
    end;
end;

Keterangan : down artinya saat klik dan up artinya saat klik di lepas.

Last beri event pada form OnCreate.

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnMessage:=evenmouse;
end;

Hasil akhir penampakan aplikasi akan seperti ini :

Donlod apps simulasi klik mouse delphi disini gan.

Download

*AFK