Вниз
Скачать: CL | DM;

Как запретить выключение Windows НЕ используя CloseQuery?   Найти похожие ветки 

← →
Grinder   (2004-05-29 16:22) [0]

Чего-то не сильно ловиться, вот пример :
Код  

{
Это всё лежит в dll
}
procedure SetHook; export; stdcall;
Begin
SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@HookProc,HInstance,0);
End;

function HookProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
begin
if Code=HC_ACTION then
case TMsg(Pointer(LParam)^).Message of
  WM_QUERYENDSESSION :
  begin
    Beep(3000,300);
  end
else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
end;
end;

Это дело не работает. Хоря вроде бы всё правильно. А как запретить его, я вообще не знаю.


← →
Gero ©   (2004-05-29 16:28) [1]


> Как запретить выключение Windows

Никак.


← →
SammIk ©   (2004-05-30 09:37) [2]

Таким способом ты лишь отлавливаешь ТО, что уже случилось.
Ось уже закрывается и сообщает тебе об этом)).
И это сообщение можно отловить и без хуков).



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c
1-1088071605
Alek
2004-06-24 14:06
2004.07.11
Изменения в excel ...


4-1084357963
^G^
2004-05-12 14:32
2004.07.11
ПОдсажите,как управлять мышкой с клавиатуры??


1-1088584282
Николай
2004-06-30 12:31
2004.07.11
Очень простой вопрос: подскажите код символа конца файла


6-1084492318
Andrei82
2004-05-14 03:51
2004.07.11
Работа с HTML в Delphi


1-1087985675
Aldor
2004-06-23 14:14
2004.07.11
Есть ли в паскале функция, аналогичная функции scanf?




   Наверх