Globale Hotkeys

Globale Hotkeys benutzen

Hier wie es geht:

procedure TForm1.FormCreate(Sender: TObject);
const
VK_F4 = $73; // F5 wäre dann $74 usw..
VK_F3 = $72;
VK_F2 = $71;
VK_F1 = $70;
begin
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, id1, 0, VK_F1);
id2 := GlobalAddAtom('Hotkey2');
RegisterHotKey(Handle, id2, 0,VK_F2);
id3 := GlobalAddAtom('Hotkey3');
RegisterHotKey(Handle, id3,0, VK_F3);
id4 := GlobalAddAtom('Hotkey4');
RegisterHotKey(Handle, id4, 0, VK_F4);
end;

Hier werden die Hotkeys registriert und damit nutzbar und zwar so:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then
showmessage('Sie haben F1 gedrückt!');
if Msg.HotKey = id2 then
showmessage('Sie haben F2 gedrückt!');
if Msg.HotKey = id3 then
showmessage('Sie haben F3 gedrückt!');
if Msg.HotKey = id4 then
showmessage('Sie haben F4 gedrückt!');
end;