Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Как не дать 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.031 c
14-68999
бука
2002-09-30 02:08
2002.10.21
Реестр ХР


1-68757
AL2002
2002-10-09 19:23
2002.10.21
SaveDialog. Как убрать путь?


1-68683
AOKotlyarov
2002-10-09 14:13
2002.10.21
Как в StringGrid обработать сообщение на перемещение ScrollBox a


6-68909
madcap
2002-08-17 12:53
2002.10.21
Мастерам Delphi и Cи..


14-68948
Ser_Kham1
2002-09-27 13:04
2002.10.21
Windows и MS-DOS





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский