Wie schreibt man ein Klickprogramm?

[Gehstock]

Hatte das vor ner weile mal so gelöst

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, XPMan;


var
  Form1: TForm1;
  X,y,c,v:Integer;
  ok: longbool;
implementation

{$R *.dfm}




procedure TForm1.Timer1Timer(Sender: TObject);
begin

    SetCursorPos(X, Y); //Setze Mausposition
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  //Maustaste Druck
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);   //Maustaste lösen
    X:= X+68;//  Detzt x 68 pixel nach links
     if x>=600 then begin x:=300; Y:=Y+48;  end; //ist x größer/gleich als 600 dann zurück auf 300 und y um 48 Pixel nach unten
      if y>=860 then begin x:=300; Y:=200; end; // ist y größer/gleich 860 dann x auf 300 und y auf 200
    Button2.caption:='Position '+inttostr(x)+'  und  '+inttostr(y); // zeigt Mausposition
   end;



procedure TForm1.FormCreate(Sender: TObject);
begin
X:= 300; Y:=200;  //startposition Mauszeiger
c:=0;   //Anzahl der clicks
v:=0;   //Anzahl der votes
ok:=RegisterHotKey(Form1.Handle, ID, MOD_Alt, Ord('Q')); //Hotkey Programm beenden
ok:=RegisterHotKey(Form1.Handle, vot, MOD_Alt, Ord('V')); //Hotkeys Vote beenden
  if not ok then
  ok:=RegisterHotKey(Form1.Handle, ID+1, MOD_control, vk_f1); //alternativer Hotkey Programm beenden
end;