eigenes Icon in TNA (NonVCL!)

[Zerolith]

Hallo!

habe mit Luckies Tut Gearbeitet.

ich möchte jetzt ein EIGENES Icon in die TNA bringen nicht das standart Fragezeichen o.ä:

Delphi-Quellcode:

  NID.wnd         := wnd;
        NID.hIcon       := LoadIcon(wnd, MAKEINTRESOURCE(102));
        if(shell32_ver >= 500) then
          begin
            NID.uFlags      := NID.uFlags or NIF_INFO;
            NID.szInfo      := 'Gestartet!';
            NID.szInfoTitle := szClassName;
            NID.dwInfoFlags := NIIF_INFO;
          end;

        Shell_NotifyIcon(NIM_ADD,@NID);
        DestroyIcon(NID.hIcon);

dem tut aber nit....

könnt ihr mir helfen

[Chewie]

Du musst bei den Flags noch NID_ICON hinzufügen. Und dem hIcon-Member das Handle des Icons des Icons zuweisen.

[Zerolith]

ehh??

sorry - entweder bin i zu blöd aber i kriegs nit hin - entweder hab i garkein ICon oder immer no des

HILF MIR *g* (am besten mit Source beispiel *G*)

[Luckie]

Tutorial: http://www.luckie-online.de/tutorial...tuts/tna.shtml
Und die Sourcen: http://www.luckie-online.de/tutorial...2apituts.shtml (dritte Link bei den Downloads)

[Zerolith]

eh luckie - i hab mit deinem Tut gearbeitet - mir gehts drum ein eigenes Icon aus ner Resourcen Datei zu laden - und nicht diese Standart dinger zu nehmen - das krieg i nich hin

trotzdem thx

[Luckie]

Dann sag das doch auch. LoadIcon oder von MS jetzt empfohlen LoadImage.
Der erste Parameter ist übrigens die Instanz (hInstance) und nicht das Fenster-Handle.

[Zerolith]

Delphi-Quellcode:

NID.wnd         := wnd;
        NID.hIcon := LoadIcon(0, (MAKEINTRESOURCE(102)));

        // Balloon-Tipps nur ab "shell32.dll" Version 5.0
        if(shell32_ver >= 500) then
          begin
            NID.uFlags      := NID.uFlags or NIF_INFO or NIF_ICON;
            NID.szInfo      := 'Gestartet!';
            NID.szInfoTitle := szClassName;
            NID.dwInfoFlags := NIIF_INFO;
          end;

        Shell_NotifyIcon(NIM_ADD,@NID);
        DestroyIcon(NID.hIcon);

dem tun nicht =(

*luckieschrei* *G*

[Zerolith]

ok habs =)

cya