Tastendruck -> Mausklicks

[Saturos]

Ich habs jetzt:

Delphi-Quellcode:

procedure TForm1.WMHotKey(var Message:TMessage);
begin
 If Message.wParam=HotKeyID then begin
    if (not klick) and (anaus) then begin
     klick:= true;
     GetCursorPos(curs);
     timer1.Enabled:=true
     end
    else if klick then   
      timer1.Enabled:=false;   
   end;
end;