Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не работает WM_DEVICECHANGE. 
:(
    Опции темы
Так, мимо проходил
  Дата 30.11.2003, 11:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не хочет работать WM_DEVICECHANGE. При открытии или закрытии CD-ROM ничего не происходит. Помогите!

Код
function WindowProc(hWnd: THandle; uMsg, wParam, lParam: Integer): Integer;
 stdcall; export;
begin
Result := 0;
 //Сообщения от меню
   case uMsg of
    WM_COMMAND:
     case wParam of
      ID_CLOSE:        PostMessage(hWnd, WM_DESTROY, 0, 0);
     end;

  WM_DEVICECHANGE: MessageBox(hwnd, 'Ура! Получилось.', '', 0);

   // Остальные сообщения Windows
   WM_DESTROY:PostQuitMessage(0);
end;
end;

begin
FillChar(WndClass, SizeOf(WndClass), 0);
 with WndClass do begin
  hInstance      := SysInit.hInstance;
  lpszClassName  := 'sMyWindow';
  lpfnWndProc    := @WindowProc;
 end;
  RegisterClass(WndClass);
  hWnd := CreateWindow('sMyWindow', '', 0, 0, 0, 0, 0, 0, 0, hInstance, NIL);
 if hWnd = 0 then begin
  if MessageBox(hwnd,'Ошибка инициализации !', '',
   MB_ICONERROR or MB_OK or MB_TASKMODAL) = ID_OK then Exit;
 end;
 //Скрываем окно
 ShowWindow(hWnd, SW_HIDE);

//Цикл обработки сообщений
repeat
 waitMessage;
  while GetMessage(Msg, 0, 0, 0) do begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
    if msg.message = WM_HOTKEY then
     case msg.wParam of
      ID_HOTKEY_OPENTIME: MessageBox(hwnd, 'HOTKEY', '', MB_OK);
     end;
  end;
until FALSE;

end.
  Вверх
stab
Дата 30.11.2003, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48
а если убрать
Код
//Скрываем окно
ShowWindow(hWnd, SW_HIDE);


то как тогда?


--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
Так, мимо проходил
Дата 30.11.2003, 18:30 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Это пофиг, окно скрыто, а не закрыто.
  Вверх
stab
Дата 30.11.2003, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48
а ты пробовал?


--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
Так, мимо проходил
Дата 3.12.2003, 16:38 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Конечно!
  Вверх
stab
Дата 4.12.2003, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48
я вот на код смотрю и думаю, что с таким кодом окно не создастся... может код не полный?


--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
Так, мимо проходил
Дата 4.12.2003, 15:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не полный!
  Вверх
stab
Дата 4.12.2003, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48
ну, так выложи код, где хотя бы окно создается smile.gif там будем думать


--------------------
6, 6, 6 - the number of the beast.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1067 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.