eigenes Icon in TNA (NonVCL!)

[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*