Главная страница
    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.033 c
1-68787
DeLz
2002-10-09 17:29
2002.10.21
Excel - как применить к ячейке форматирование


14-69003
zzet
2002-09-29 15:56
2002.10.21
Интернет-зависимость сродни алкоголизму?


4-69070
Same_Genetik
2002-09-06 15:55
2002.10.21
Как получить имя текущего пользователя в Win2000 ?


3-68636
riland
2002-09-26 18:38
2002.10.21
Вопрос о защите данных в приложении


14-68916
multik
2002-10-01 00:10
2002.10.21
диски охота





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский