Virtual Key Сodes

← →
Alex-21 (2003-06-04 21:20) [0]

Как перехватить "Alt+F4"?
Я написал if Key = VK_LMENU + VK_F4 then..., но она по-моему не работает, не реагирует. Верно ли я написал? Или надо по-другому написать?

← →
зфмуд_л (2003-06-04 22:12) [1]

А надо только для твоего приложения или глобально? Если только для твоего, то проще всего обрабатывать OnCloseQuaery (вроде так пишется:), это событие возникает перед закрытием, то есть после нажатия Alt+F4.

← →
Xoy (2003-06-04 22:33) [2]

function AltKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0;
end;

......

if (key = VK_F4) and (AltKeyDown = true) then begin
......
......
end;

как-то так

имхо Alt-F4 так же как и Ctrl-Alt-Esc и Alt-TAB и тд есть системные hotkeys, ловить их нужно на соответствующих системных сообщениях

Alt-F4 ловится на WM_SysCommand
procedure WMGetSysCommand(var Message: TMessage); message WM_SYSCOMMAND;

if Message.WParam=SC_Close then
правда я не в курсе как крестик отличить от Alt-F4, может только GetKeyboardState проверить...

если же все нужно на глобальном уровне тот тут только hooks

Virtual Key Сodes Найти похожие ветки