Трей и ...

[Max!]

Вот собствынно и вопрос , есть Picture1 и надо стоб в нём отабразились все иконки находящиеся на данный момент в трей и при клике на одну из иконку в нашем Picture происходилоп то же самое что и в настоящем трей (У каждой проги сидящеё в треё поразному , может откр. сама прога или настройка её ) Вот только я незнаю как это реализовать ? И нужен ли вообще PictureBox сдесь я имею ввиду можно ли через него такое реализовать ?

[ANDLL]

Находи сие окно и bitblt из него...

[Tarik]

Находи сие окно и bitblt из него...

А события тогда как обрабатывать? Нет, тут что-то другое нужно. Как вариант, можно сделать SetParent, но так ты просто "перенесёшь" трей в своё окно...
А вообще, меня эта задача тоже интересует, давайте общими усилиями развивать этот вопрос

[ANDLL]

А можно сделать его сабклассинг?

[Max!]

Tarik

А события тогда как обрабатывать? Нет, тут что-то другое нужно. Как вариант, можно сделать SetParent, но так ты просто "перенесёшь" трей в своё окно...

А если копировать неким мокаром ? Кстати Tarik немог бы ты пример кинуть , а то у меня невыходит точне я немагу найти hwnd трея ! Вот кнопку "Start" магу перенести на форму , саму панель тоже а вот трей немагу hwnd найти !

[Tarik]

Примера под рукой, к сожалению, нет А трэй надо искать по "TrayNotifyWnd".

[Gloom]

Вообще принцип такой:
Находим окно TrayNotifyWnd -> (+ на XP - SysPager) -> ToolbarWindow32.
Посылаем ему сообщение TB_BUTTONCOUNT - узнаём количество иконок.
Затем для каждой кнопки TB_GETBUTTONINFO - получаем NOTYFYICONDATA(это надо в контесте Explorer.exe делать, разумеется)
Из NOTYFYICONDATA вытаскиваем hIcon и передаём OleCreatePictureIndirect...

[alibek]

Gloom, совет классный
Вот только он в данном случае бесполезен. Есть у меня такое предчувствие.

[Max!]

Да совет неплохой но у меня вапиант легче

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Dim a As Long
Dim b As Long
Dim hw As Long

Private Sub Command1_Click()
  hw = FindWindow("Shell_traywnd", vbNullString)
  a = FindWindowEx(hw, 0, "TrayNotifyWnd", vbNullString)
  b = SetParent(a, Form1.hwnd)
End Sub


Всё работает , только сам трей помещается в правом верхнем углу если развернуть форму на весь экран ! Есть идея , если треё помещять в пиктуребокс и сделать чтоб его тоскать по форме можно было ! Или сразу какимто макаром ставить координаты куда будем размещять трей, посаветуйте как лудше сделать или можно както ещё упераясь в мой вариант !

[Tarik]

Ну, с SetParent всё ясно, а вот если я, скажем, хочу свой shell написать (т. е. заменить стандартный explorer на свою прогу)? Тогда как быть? В принципе, эту проблему можно разложить по нескольким вопросам:
1. Как узнать, что какая-то программа хочет добавить/удалить значок
2. Как узнать, что эта программа сворачивается в трэй, а не в таскбар
3. И как обрабатывать события этого значка (т. е. клики мышью)?
Буду очень благодарен, если кто-нибудь хотя бы подскажет направление, в котором нужно пилить А ещё лучше - линк на какую-нибудь доку по этой теме...

[Max!]

Так с SentParent всё есть и клик мышью работает и добаляются иконки и тд...
Tarik пиши обрезанную версию explorerа вот и всё ! Только исходники достать надо !

[Tarik]

Так с SentParent всё есть и клик мышью работает и добаляются иконки и тд

Дык если я explorer заменю, трэя вообще не будет. Вот мне и надо "написать свой трэй"...

Tarik пиши обрезанную версию explorerа вот и всё ! Только исходники достать надо !

Ага, точняк, пойду письмо Биллу Гейтсу сочинять

[Max!]

Вот ещё вопросик есть , на форме имеется один Пиктуребокс и в него загружена картинка , сам пиктуребокс небольшого размера и вся кортинка невлезает , вот и мне надо чтобы он показал определённый участок по координатам , всмысле он будет показывать определённое место кортинки. Как это сделать?

[alibek]

Tarik, теоретически, это несложно.
Создаешь свое окно с классом "Shell_traywnd", в нем создаешь окно с классом "TrayNotifyWnd". В оконной процедуре ловишь обращения к нему (NotifyIconMessages) и обрабатываешь. Кроме того, обрабатываешь клики мышкой на значках и уведомляешь об этих кликах "владельца" значка (как MOUSE_MOVE).
Сложности будут в реализации.

[Sebas]

достаточно одного окна

[Max!]

Как насчёт моего вопроса?

[Sebas]

Я думаю это невозможно, так как нужно узнать хендл окна свзанного с иконкой.

конечно ты можешь отслеживать их при добавлении, если перехватить сообщение окну трея. Но это уже и есть свой трей.

[Max!]

Нет я не об этом , вот мой вопрос

Вот ещё вопросик есть , на форме имеется один Пиктуребокс и в него загружена картинка , сам пиктуребокс небольшого размера и вся кортинка невлезает , вот и мне надо чтобы он показал определённый участок по координатам , всмысле он будет показывать определённое место кортинки. Как это сделать?

[tyomitch]

Max, просто задай пикчербоксу нужные Left и Top (отрицательные)

[Max!]

Так это позиция пиктуребокса на форме , нет мне надо чтоб он стаял на одном месте , всммысле там где я его поставил на той позиций !

[tyomitch]

Какая тебе разница, где он, если его всё равно целиком не видно?

[Max!]

Не всёже . пытаюсь разместить трей на форме , у меня получается только трей размещается в правом верхнем углу формы и то её надо растянуть до упора или развернуть на весь экран , а какже поместить на любое место формы ??? Я пробовал с пиктуребоксом но трей виден только если растянуть пиктрбкс. до упора в право (До тех пор пока он перестанет растягиваться ) Но как этого избежать ? (Я предерживаюсь сваему варианту с SetParent)

[tyomitch]

Да просто задай ему Left=-600, и всё!
Ну какая тебе разница, где он стоит?

[Max!]

Тогда трея невидно ! tyomitch ты не нервничаяй разница есть так-как я нехачу растягивать форму на весь экран и пиктрбкс. нехачу грамодский делать , а трей видно если только развернуть форму на весь экран (Если трей на форму помещать) и пиктуребокс преходится растягивать (Если на пиктуребокс помещять)

[tyomitch]

У меня нет слов - одни буквы...
При чём здесь растянутая форма? При чём здесь пикчербокс на весь экран? Ты что ли не понял, о чём я тебе говорю?

[alibek]

alibek хихикает... "И тебя вылечим"...