Глобальные горячие клавиши

[W0LF]

Как зарегестрировать глобальные горячие клавиши из 3 и больше клавишь?

Знаю RegisterHotKey регистрирует из 1 или 2 клавишь, а как из 3 ?
Например Ctrl+3+L ?))
Извращенство, я знаю, но так для общего развития

[.Phoenix]

Я знаю реально можно оперировать CTRL+ALT+любая латинская клавиша или F1-F12, CTRL+SHIFT+любая латинская клавиша или F1-F12, CTRL+F1-F12 и т.д. , но на счёт Ctrl+3+L - не слыхал, может быть и есть...

[W0LF]

Привидите пример, что бы клавишь было больше 2 ? Даже на том же Ctrl+Alt+F11

[spamer]

Например вот так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure F1(var Message:TMessage);message WM_HOTKEY;
  public
    { Public declarations }
  end;

const
  VK_F11 = $7A;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.F1(var Message:TMessage);
begin
if Form1.Visible=true then Form1.Visible:=false;
if Form1.Visible=false then Form1.Visible:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, MOD_CONTROL + MOD_Alt, VK_F11);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Visible := False;
end;

end.

[uberchel]

Да можно все зарегить, вот пример регистрации всех клавиш: