Wie bekomm ich mein Progi in ...

[citybreaker]

Hallo!
Wie bekomm ich mein Programm in die
Taskleiste von nur die Icons sind?
Öhm für die die nicht wissen was ich meine
ich hab nen Anhang mit nem Bild.

[sakura]

Suche mal im Forum nach "Tray Icon" bzw. nach "TNA", da wirst Du fündig.

......

[Stanlay Hanks]

Torry -> Schnellsuche -> CoolTrayIcon
Das hatten wir schon 100fach

[flomei]

Oder JediVCL. Da ist auch so eine Komponente bei.

MfG Florian

[Hugoface]

bin gerade am kämpfen... mit cooltrayicon funktioniert das alles schon... nur hätte ich es gern noch so, dass die anwendung NUR im tray zu sehen ist und nicht in der taskleiste...

das geht mit cooltrayicon nicht, oder?

danke für antworten

hugo

[Chewie]

Keine Ahnung, ob es mit CoolTrayIcon geht, aer so geht es:
ShowWindow(Application.Handle, SW_HIDE);

[Tim.exe]

Besorg dir mal "TrayIcon", die ist besser als "CoolTrayIcon".

[Alexander]

man brauch aber eigentlich keine Komponente, das kann man eigentlich auch relativ schnell selbst machen
Ihr könnt ja mal nach WM_TASKBAREVENT usw. kucken.
Oder hier auf der DP einfach suchen

[Dagon]

Mit folgendem Code gehts auch:

Delphi-Quellcode:

const WM_TASKBAREVENT = WM_USER+1;
...
  public
    { Public-Deklarationen }
     procedure WMTASKBAREVENT(var message: TMessage); message     WM_TASKBAREVENT;
end;
...
uses ShellAPI;
...

procedure TForm1.WMTASKBAREVENT(var message: TMessage);
var point : TPoint;
begin
    case message.LParamLo of
         WM_LBUTTONDBLCLK : begin
                                 form1.show;
                            end;
    end;
end;


procedure TaskBarAddIcon;
var tnid : TNOTIFYICONDATA ;
begin
    tnid.cbSize := sizeof(TNOTIFYICONDATA); // Größenangabe der Struktur
    tnid.Wnd := Form1.handle;               // Handle des Message-Empfängers
    tnid.uID := 1;                          // ID beliebig
    tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;  // siehe Tabelle
    tnid.uCallbackMessage := WM_TASKBAREVENT;        // Message# für Form1
    tnid.hIcon := form1.image1.picture.icon.handle;  // Iconhandle
    strcopy(tnid.szTip,'Programmname');                // Tooltiptext
    Shell_NotifyIcon(NIM_ADD, @tnid);                // Registrieren ...
end;

procedure TaskBarRemoveIcon;
var tnid : TNOTIFYICONDATA ;
begin
    tnid.cbSize := sizeof(TNOTIFYICONDATA);
    tnid.Wnd := Form1.handle;
    tnid.uID := 1;
    Shell_NotifyIcon(NIM_DELETE, @tnid);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TaskBarAddIcon;
 
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TaskBarRemoveIcon;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  self.Hide;
end;

[Alexander]

Jupp und wenn man statt Shell_NotifyIcon(NIM_ADD, @tnid); Shell_NotifyIcon(NIM_MODIFY, @tnid); schreibt sollte man das Icon, den Tooltip etc auch noch verändern können.
Siehe PSDK