Я попробовал зарегистрировать Alt+F4 - там все было ОК, но при регистрации HotKey Alt+Tab эту комбинацию все равно можно нажать:

procedure TForm1.hotykey(var msg:TMessage);
begin
 if (msg.LParamLo=MOD_ALT) and (msg.LParamHi=VK_TAB) then
 begin
 ShowMessage('Alt + Tab Pressed');
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   id:=GlobalAddAtom('hotkey');
   RegisterHotKey(handle,id,mod_ALT,VK_TAB);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id);
end;

В чем ошибка?

В смысле что она ловится, но приложения всё-равно переключаются ?

Цитата(Song @ 16.6.2002, 20:53)

В смысле что она ловится, но приложения всё-равно переключаются ?

По моему Alt+Tab вообще не ловится, поскольку ShowMessage не появляется!

А сообщение WM_HOTKEY в описании класса формы описал ?

Цитата(Song @ 16.6.2002, 21:46)

А сообщение WM_HOTKEY в описании класса формы описал ?

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   { Private declarations }
protected
   procedure HotKey(var msg:TMessage); message WM_HOTKEY;
 end;