Diese Sache mit den globalen Hooks...

[SirThornberry]

so gehts

Delphi-Quellcode:

  THotkeyObj = class(TObject)
  private
    fHandle: Cardinal;
    procedure FMsgProc(var AMsg: TMessage);
  public
    constructor Create;
    destructor Destroy; override;
  end;
[...]
constructor THotkeyObj.Create;
begin
  inherited;
  fHandle := classes.AllocateHWnd(FMsgProc);
  RegisterHotKey(fHandle, 0, MOD_CONTROL, VKKeyScan('a'));
end;

destructor THotkeyObj.Destroy;
begin
  UnregisterHotKey(fHandle, $0);
  classes.DeallocateHWnd(fHandle);
  inherited;
end;

procedure THotkeyObj.FMsgProc(var AMsg: TMessage);
begin
  with AMsg do
  begin
    if AMsg.Msg = WM_HOTKEY then
      //hotkey was pressed
    else
      Result := DefWindowProc(fHandle, Msg, wParam, lParam);
  end;
end;