"Balonik" w Tray'u

Witam
Pisze do Was z prosba o rade.

Chcialbym uzyskac taki efekt:
http://www.swissdelphicenter.ch/en/showcode.php?id=1164
Jest tutaj podany caly gotowy kod ale u mnie on sie nie uruchamia, kompilator pokazuje bledy.

Uzywam Delphi 6 na XP

Po dlugich poszukiwaniach odkrylem ze problem tkwi w deklaracji typu TNewNotifyIconData. W kodzie sa jakies wzmianki o Versji 5 - z moich poszukiwan najprawdopodobnie chodzi o wersje IE - min. 5 - ja mam u siebie IE6.

Z tego co sam sie dowiedzialem to po prostu u mnie kalasa TNewNotifyIconData nie ma nastepujacych pol:

• szTip: array [0..127] of Char; tylko 0..63
• dwState: DWORD;
• dwStateMask: DWORD;
• szInfo: array [0..255] of Char;
• szInfoTitle: array [0..63] of Char;
• dwInfoFlags: DWORD;

Bledne linie kodu:
strPLCopy(Form1.IconNotifyData.szInfo, TipInfo, SizeOf
strPLCopy(IconNotifyData.szInfoTitle, TipTitle, SizeOf
IconNotifyData.dwInfoFlags := NIIF_INFO;

Czy ktos moglby mi powiedzic jak skompilowac i uruchomic ten kod ?

Znalazlem jeszcze to:
http://www.delphipraxis.net/topic420.html - jest tu cos o wersji biblioteki shell32.exe gdzie najprawdopodobniej jest zadeklarowana klasa TNewNotifyIconData - u mnie ten plik jest w wersji 6.x

Za wszelkie porady bede bardzo wdzieczny
Z reguly sam rozwiazuje problemy w programowaniu ale tym razem po prostu sie poddaje po 2 dniach spedzonych w necie i szukaniu przyczyny...

Pozdrawiam
Bodzio

p.s. gdzies w necie natrafilem na wzmianke ze w Microsoft .NET Framework 1.1 nie ma mozliwosci wyswietlenia takiego dymku - nie wiem czy to prawdziwa informacja - ja mam zainstalowana wersje 2.0

Kiedyś tez probowałem takieg obaloniki zrobić, ale całkowicie mi nie wychodziło. Od tej pory korzystam z komponenty CoolTrayIcon - jest bardzo dobry. Bez problemów wyświetlisz balonik, dotego z rysunkiem/

może byś tak podał jakie błędy ...
ja kiedyś to testowałem i u mnie działało
spróbuj dodać do uses ShellApi
co to ma niby wspólnego z .NET

Użyj komponentu z pakietu JVCL

Oto bledy:

Kod: strPLCopy(Form1.IconNotifyData.szInfo, TipInfo, SizeOf(IconNotifyData.szInfo) - 1);
Blad: [Error] Unit1.pas(2442): Undeclared identifier: 'szInfo'

Kod: IconNotifyData.DUMMYUNIONNAME.uTimeout := 3000;
Blad: [Error] Unit1.pas(2443): Undeclared identifier: 'DUMMYUNIONNAME'

Kod: strPLCopy(IconNotifyData.szInfoTitle, TipTitle, SizeOf(IconNotifyData.szInfoTitle) - 1);
Blad: [Error] Unit1.pas(2445): Undeclared identifier: 'szInfoTitle'

Kod: IconNotifyData.dwInfoFlags := NIIF_INFO;
Blad: [Error] Unit1.pas(2446): Undeclared identifier: 'dwInfoFlags'

Kod: IconNotifyData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;
Blad: [Error] Unit1.pas(2443): Undeclared identifier: 'DUMMYUNIONNAME'

Jak wpisuje w kodzie Form1.IconNotifyData. i czekam az delphi wyswietli mozliwe wartosci to wlasnie tych gdzie sa bledy nie pokazuje i wlasnie w tym jest problem. Na komponencie pokazuje to samo...

http://www.wrzucaj.com/983391 tutaj masz czysty projekt z tym kodem i u mnie działa

http://download.4programmers.net/TTrayIcon.zip

Z pełnym kodem źródłowym i przykładem.