Bei Druck auf F-Taste -> Aktion

[Christian Seehase]

Moin UC,

hier wird der Hotkey ALT+CTRL+SHIFT+F registriert.

Den eindeutigen Wert für die ID sollte man zwar nur für DLLs verwenden, aber es funzt so auch.
(oder Du lässt es mit GlobalAddAtom und vergibst einfach eine ID im Bereich 0 bis $BFFF)

Delphi-Quellcode:

procedure TfrmMAIN.WndProc(var msg : TMessage);
begin
  if msg.Msg = WM_HOTKEY then begin
    if msg.WParam = iAtom then begin
    end;
  end else begin
    inherited WndProc(msg);
  end;
end;

procedure TfrmMAIN.Button1Click(Sender: TObject);
begin
  RegisterHotKey(self.Handle,iAtom,MOD_ALT or MOD_CONTROL or MOD_SHIFT,ord('F'));
end;

procedure TfrmMAIN.FormCreate(Sender: TObject);
begin
  iAtom := GlobalAddAtom('{109C7275-AB9C-4E60-B72F-1E8CF73B5092}');
end;

procedure TfrmMAIN.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(iAtom);
end;

procedure TfrmMAIN.Button2Click(Sender: TObject);
begin
  UnregisterHotkey(self.Handle,iAtom);
end;