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