Ибо диска нет, достать тяжело (а если и привозят - расхватывают еще до прилавка), а в инете - не всегда есть возможность глянуть.
Очень интересует проблема FindWindow и прочих. Вот в 6-ой, все помнят прогресс бар в трее, переводя код (недавно перешел на .NET, хочу попереписывать старые софты на новый лад, чтобы немножко адаптироваться). Так вот дошел до Api и тормознулся... Ну то, что вместо Long писать Int, вместо hWnd as Long - hWnd as IntPtr - я уже выкупил. Вопрос в следующем.
- Код: Выделить всё
Dim k As IntPtr = FindWindow("Shell_TrayWnd", vbNullString)
k = FindWindowEx(k, Nothing, "TrayNotifyWnd", vbNullString)
k = FindWindowEx(k, Nothing, "TrayClockWClass", vbNullString)
SetParent(k, Me.Handle)
Вместо трея появляется серая панелька (никак не похожая на мою форму) цвета SystemColor.Control, а после выгрузки программы - вообще исчезает и ничего вместо этого не появляется. Таким вот образом сижу сейчас без "часиков" и всех "иконок" в трее
Довольно забавный глюк.
Нормальность возвращается только после перезагрузки.
Очень буду признателен за исходник адаптированный под .NET и за файлик, если у кого есть (желательно в архиве, а не в PDF формате с BMP картинками
- трафик, сами понимаете).