Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Как не дать Windows завершить работу. Приложение на чистом API.   Найти похожие ветки 

← →
Mazenrat   (2002-09-08 16:38) [0]

Здравствуйте.

Вообщем не выходит у меня поймать завершение работы Windows (WM_QUERYENDSESSION). Вообще не ловиться даже WM_QUIT. Вот как я всё делаю:

function WindowProc(hWnd: THandle; uMsg, wParam, lParam: Integer): Integer;
stdcall; export;
begin
Result := 0;
if uMsg = TaskBarCreated then
TaskBarAddIcon(hWnd, ICON_ID, LoadIcon(hInstance, "MAINICON"), WM_TASKBAR, Hint);
case uMsg of
WM_QUERYENDSESSION: begin
if messageBox(0,"Выйти из Windows?","Выход",MB_YESNO)=ID_NO
then Result := integer(FALSE)
else Result := DefWindowProc(hWnd, uMsg, wParam, lParam); end;
WM_COMMAND: case wParam of
ID_CLOSE: PostMessage(hWnd, WM_DESTROY, 0, 0);
ID_OPENCD: begin {------} end; end;
WM_TASKBAR: case wParam of
ICON_ID: case lParam of
WM_RBUTTONDOWN: PopupMenu(hWnd); end; end;
WM_DESTROY: begin PostQuitMessage(0); Exit; end;
end;
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

---

← →
Anatoly Podgoretsky ©   (2002-09-08 16:49) [1]

Да тебя сразу к стенке, а программу в корзину и как можно быстрее

---

← →
Mazenrat   (2002-09-08 17:11) [2]

Ну, так прямо к стенке не нужно. А как правильно-то?

---

← →
Anatoly Podgoretsky ©   (2002-09-08 17:25) [3]

А ты представь такие вещи как UPS и представь, что будет с моей системой если ты воспрепятствуешь ее завершению

---

← →
Mazenrat   (2002-09-08 18:30) [4]

Предчуствую, что ответами и не запахнет.

---

← →
Endre ©   (2002-09-08 19:42) [5]

В наборе компонент Rx есть штучка, которая отлавливает все сообщения. Можешь посмотреть исходники этого компонента, если его у тя нет, пиши frost@dimbus.com, я тебе его скину.

---

← →
Mazenrat   (2002-09-08 19:44) [6]

А что за копонент? Я имею ввиду название модуля.

---

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

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.02 c