Что происходит во время Win+D?

[Altera]

Всем привет! Ещё одна тема с некорректным поведением окон. И опять в примере DownloadMaster. Программа та-же что и в http://programmersforum.ru/showthread.php?t=65809 Ситуация следующая: Короче я хочу, что-бы одно окно, не имело иконки в таскБаре. Оно её и не имеет по-умолчанию. Так как в приложении нет главных (Application.mainForm) форм которые создаются методом Application.createForm то окна не имеют кнопку в таскБаре. Дело исправляю при помощи функции

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

Проблема в том, что как я уже говорил, не хочу что-бы у одного кна была кнопка в таскБаре но если её там нет, окно ведёт себя не корректно после Win+D. (Показать рабочий стол) Замечу, что при Win+M (Свернуть все окна) всё нормально, а точнее вообще не сворачивается. Не корректность заключается в том, что оно (окно без кнопки в таскБаре) появляется как только я щёлкаю по иконки приложения в трее (т.е. Приложению передаётся фокус и окно тоже появляется с фокусом), но оно исчезает как только с него ухоит фокус на другое приложение, скажем, при щелчке по раб. столу. Замечу, что если в такой ситуации не по раб. столу щёлкать а открыть другое окно сего окна сего приложения, то окно больше не исчезает при потере фокуса. Ситуация повториться при следующем Win+D. И ещё замечу, что плавающее окошко у DownloadMaster-а тоже без кнопки в таскБаре, но оно не исчезает при Win+D. Помогите сделать нормально.

[dr.Chas]

«Win+D» — свернуть/восстановить все окна, включая диалоговые;
«Win+M» — сворачивает все окна, кроме диалоговых;

А вот как исправить незнаю. Знаю что это окно у дм похоже на окно компонента AdvAlertWindow.

[Altera]

Ага, ясно. А что на счет функции createParams? Может в параметрах что-то изменить надо?

[Lime]

Может лучше отлавливать событие минимизации?

[Altera]

Да славливаю я его. Не помогает. Не приходит сообщение минимизации (при Win+d) не в обрабодчик

procedure WMSysCommand(var m: TMessage); message WM_SYSCOMMAND;

procedure TSomeForm.WMSysCommand(var m: TMessage);
begin
   if m.WParam = SC_MINIMIZE then
      close
   else
      m.Result := DefWindowProc(Handle, m.Msg, m.wParam, m.lParam);
end;

и не в application.onMinimize;

[mihali4]

А обычное

procedure TMyForm.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, sw_Hide); 
end;

совместно с formStyle = fsStayOnTop для всех окон приложения - не помогает?
Ей-богу, я так до конца и не понял проблему...

[Altera]

Нет. Не помогает. И кнопка приложения с меня и так не отображается:

application.mainFormOnTaskbar := true;

в дпр файле.
Как мне узнать, когда юзер жмет Win+D? Никакое уведомление окну не приходит?

[Somebody]

Сообщение от Altera

Как мне узнать, когда юзер жмет Win+D? Никакое уведомление окну не приходит?

<00018> 00040452 P WM_KEYDOWN nVirtKey:VK_LWIN cRepeat:1 ScanCode:5B fExtended:1 fAltDown:0 fRepeat:0 fUp:0
<00019> 00040452 S message:0xBD00 [User-defined:WM_USER+47360] wParam:0000005B lParam:015B0001
<00020> 00040452 R message:0xBD00 [User-defined:WM_USER+47360] lResult:00000000
<00021> 00040452 S WM_SHOWWINDOW fShow:False fuStatus:SW_PARENTCLOSING
<00022> 00040452 S WM_SHOWWINDOW fShow:False fuStatus:0 (ShowWindow was called)
<00023> 00040452 R WM_SHOWWINDOW
<00024> 00040452 S WM_WINDOWPOSCHANGING lpwp:0012F7A4
<00025> 00040452 R WM_WINDOWPOSCHANGING
<00026> 00040452 S WM_WINDOWPOSCHANGED lpwp:0012F7A4
<00027> 00040452 R WM_WINDOWPOSCHANGED
<00028> 00040452 S WM_NCACTIVATE fActive:False
<00029> 00040452 R WM_NCACTIVATE fDeactivateOK:True
<00030> 00040452 S WM_ACTIVATE fActive:WA_INACTIVE fMinimized:False hwndPrevious:(null)
<00031> 00040452 R WM_ACTIVATE
<00032> 00040452 S WM_ACTIVATEAPP fActive:False dwThreadID:00000918
<00033> 00040452 R WM_ACTIVATEAPP
<00034> 00040452 S WM_KILLFOCUS hwndGetFocus:(null)
<00035> 00040452 R WM_KILLFOCUS
<00036> 00040452 R WM_SHOWWINDOW
<00037> 00040452 S WM_WINDOWPOSCHANGING lpwp:0012FEB4
<00038> 00040452 R WM_WINDOWPOSCHANGING
<00039> 00040452 S WM_WINDOWPOSCHANGED lpwp:0012FEB4
<00040> 00040452 R WM_WINDOWPOSCHANGED

[dr.Chas]

Как я уже выше писал, это окно из дм, похоже на компонент AdvAlertWindow. Поковыряв его с минут 30 вот что у меня получилось. Там же пример из ассемблера. Взят здесь.

[Altera]

Сообщение от dr.Chas

Как я уже выше писал, это окно из дм, похоже на компонент AdvAlertWindow. Поковыряв его с минут 30 вот что у меня получилось. Там же пример из ассемблера. Взят здесь.

Что-то подобное я пытался сделать. Это не совсем то. Я хочу именно отловить сообщение. Мне не нужно, что-бы окно не пряталось. Может DefWindowProc на прямую вызывается?

2Somebody, это что за прога?

з.ы.

Причина: десмайлизация