Global Genvej

ja se efter registerhotkey i win32 hjælpen.

http://borrisholt.com/eksperten/GlobalHotKey.zip

Jens B

Først og fremmest: Undskyld for først at uddele point nu...

Jeg giver points til dkn idet jeg ikke har fået set på borrisholt's svar... Og så virker det, selvom man selv skulle google lidt :)

Til eventuelle andre der vil bruge det samme er det som følger:

type
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = 1 then begin
    ShowMessage('Global Genvej :o)');
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, 2{Ctrl} + 1{Alt}, Ord('R'));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, 1);
end;