Hotkey

[Shothic]

Jak zrobić żeby pod wybranym hotkeyem była jakaś procedura
np.
procedure lol
begin
if hotkey
then

end.

[maciek]

w Form.OnCreate rejestrujsz globalny hotkey (np ctrl+f1):

RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL,  VK_F1);

a w Form.OnClose zwalniasz rejestracje:

UnregisterHotKey(Form1.Handle, $0001);

teraz obsluga skrotow, w private wpisz:

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

a nizej pod implementation:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.WParam = $0001 then
 begin
  mojaprocedura;
  showmessage('lub inny tekst');
 end;
end;

[Shothic]

Dzięki
Teraz mam inny problem moja procedura klika myszka na pulpit np ale tez chce zęby klikała wszędzie nie tylko na pulpit. Gdy uruchamiam procedurę hotkeyem klika mi na pulpit ale okienko z programem odznacza się i następnym razem gdy kliknę nie działa procedura
Żeby działała musi być na wierzchu okno jak to ominąć?

[maciek]

powinno dzialac zawsze, to globalny hotkey, pokaz caly swoj kod programu

[Shothic]

Działa teraz.
jak zrobić żeby pod F1 było, nie ctr+f1