Дмитрий77И как эту сволочь обмануть я не знаю.
Теперь знаю.
Не надо делать WM_SETICON.
Надо вешать лапшу на уши в
WM_GETICON message
Sent to a window to retrieve a handle to the large or small icon associated with a window. The system displays the large icon in the ALT+TAB dialog, and the small icon in the window caption.
wParam
The type of icon being retrieved. This parameter can be one of the following values.
Value Meaning
ICON_BIG
1 Retrieve the large icon for the window.
ICON_SMALL
0 Retrieve the small icon for the window.
ICON_SMALL2
2 Retrieves the small icon provided by the application. If the application does not provide one, the system uses the system-generated icon for that window.
When an application receives this message, it can return a handle to a large or small icon, or pass the message to DefWindowProc.
Винды делают буквально следующее.
Для показа в Alt-TAB на Виста и выше:
1) хотят узнать ICON_BIG (32х32), если есть то ее и показывают
2) если нет хотят узнать ICON_SMALL(16х16), если есть то калякают из нее 32х32 и это показывают
3) если нет то показывают
системную иконку, которая мне и не понравилась . ICON_SMALL2 винды здесь не интересуются (вообще это баг).
Для показа в TaskBar:
1) хотят узнать ICON_SMALL(16х16), если есть то ее и показывают
2) если нет хотят узнать ICON_BIG (32х32), если есть то калякают из нее 16х16 и это показывают
3) если нет то хотят узнать ICON_SMALL2 (иконка exe-шника а не формы), ее и показывают.
=====================
Из осознания следует решение вносящее ясность и исключающее неоднозначность.
При загрузке формы делаем 2 иконки:
1.
2.
3.
4.
5.
Public lngIconTAB As Long '32х32 для показа в Alt-TAB на вистах
Public lngIconTASK As Long '16х16 для показа в TaskBar
lngIconTAB = LoadImage(App.hInstance, MAKEINTRESOURCE(101), IMAGE_ICON, 32, 32, LR_DEFAULTCOLOR)
lngIconTASK = LoadImage(App.hInstance, MAKEINTRESOURCE(102), IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR)
Сабклассим форму и при получении WM_GETICON возвращаем именно то что хотим увидеть.
По тому как по умолчанию ICON_SMALL и ICON_BIG не установлены (иначе будет иконка в шапке),
и Винды начинают "вольничать".
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Const WM_GETICON = &H7F
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1
Private Const ICON_SMALL2 = 2
Public Function NewFormMeWindowProc( _
ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
Case WM_GETICON
If wParam = ICON_BIG Then
NewFormMeWindowProc = lngIconTAB 'запрос правильной иконки для Alt-Tab на Висте
Exit Function
ElseIf wParam = ICON_SMALL Then
NewFormMeWindowProc = lngIconTASK 'запрос правильной иконки для TaskBar
Exit Function
End If
Case Else
End Select
NewFormMeWindowProc = CallWindowProc( _
OldFormMeWindowProc, hwnd, Msg, wParam, _
lParam)
End Function
