Hotkey auf Mausklick

[Stefan92]

Hallo,
bei den Schweizern habe ich auf dieser Website etwas über Hotkeys gefunden.
Dazu habe ich aber mehrere Fragen.
Zum einen frage ich mich, warum die beiden Hotkeys id1 und id2 nicht funktionieren?
Zum anderen aber, wie ich einen Hotkey auf eine Maustaste lege? Bei mir hats nicht geklappt.
Achja, und hier der Quellcode:

Delphi-Quellcode:

unit hotkeys;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    id1,id2,id3,id4:integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey =id1 then
  begin
    Keybd_Event(ord('C'),0,0,0);
    sleep(78);
    Keybd_Event(ord('C'),0,KEYEVENTF_KEYUP,0);
  end;
  if Msg.HotKey =id2 then
    ShowMessage('Ctrl + A + R pressed !');
  if Msg.HotKey =id3 then
    ShowMessage('Win + F4 pressed !');
  if Msg.HotKey =id4 then
  begin
    Keybd_Event(ord('R'),0,0,0);
    Keybd_Event(ord('R'),0,KEYEVENTF_KEYUP,0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  MOD_ALT=1;
  MOD_CONTROL=2;
  MOD_SHIFT=4;
  MOD_WIN=8;
  VK_A=$41;
  VK_R=$52;
  VK_F4=$73;
  VK_LBUTTON=4;

begin
  id1:=GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, MOD_CONTROL, VK_A);
  id1:=GlobalAddAtom('Hotkey2');
  RegisterHotKey(Handle, id2, MOD_CONTROL + MOD_ALT, VK_R);
  id3 := GlobalAddAtom('Hotkey3');
  RegisterHotKey(Handle, id3, MOD_WIN, VK_F4);
  id4 := GlobalAddAtom('Hotkey4');
  RegisterHotKey(Handle, id4, VK_MBUTTON,0);
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, id1);
  GlobalDeleteAtom(id1);
  UnRegisterHotKey(Handle, id2);
  GlobalDeleteAtom(id2);
  UnRegisterHotKey(Handle, id3);
  GlobalDeleteAtom(id3);
  UnRegisterHotKey(Handle, id4);
  GlobalDeleteAtom(id4);
end;

end.

Hoffe ihr könnt mir helfen und schonmal vielen Dank im Voraus.

Gruß

Stefan

[Stefan92]

*PUSH*

[Schaedel]

Dein Link zu den Schweizern geht bei mir nicht.
Er zeigt eine leere Seite...

[Stefan92]

Dieser Link müsste aber gehen.

Gruß

Stefan

[Stefan92]

And another dirty *PUSH*

Gruß

Stefan

PS:Sorry, wenns ne Minute zu früh ist, meine Uhr geht nicht richtig.

[Stefan92]

Kommt schon, Leute, das ist mein letzter Push.

Gruß

Stefan

[SirThornberry]

Hast du mal das MSDN zu der Funktion befragt? RegisterHotKey funktioniert NICHT für Maustasten

[Stefan92]

Ok Danke, alles klar.
Aber darf ich fragen, ob sich das realisieren lässt einen Hotkey auf einen Mausklick zu setzen?
Vielleicht mit einem anderen Befehl?

Gruß

Stefan