Как узнать Сочетание нажатых клавиш ?

← →
titnn © (2003-06-04 08:42) [0]

нужно отлавливать длинные сочетания , типа

Ctrl+Shift+Alt+R

причем даже если моя прога не активна ...

плз подскажите , если можно с примерчиком...

← →
Ajax © (2003-06-04 08:59) [1]

RegisterHotKey...

Делай это так:

private
{ Private declarations }
procedure WMHotKey(var msg:TWMHotKey);
message WM_HotKey;

procedure TForm1.WMHotKey(var msg: TWMHotKey);
begin
if msg.HotKey=1 then
begin
//Do smth
end;
if msg.HotKey=2 then
begin
//Do smth
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,1,MOD_Control,ord("1")); //CTRL+1
RegisterHotKey(Handle,2,MOD_Control,ord("2")); //CTRL+2
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,1);
UnregisterHotKey(Handle,2);
end;

Как узнать Сочетание нажатых клавиш ? Найти похожие ветки