ایکون tray

[alimooghashang]

با سلام
چطوری میشه برنامه ای که نوشتیم رو در tray کنار ساعت نشون بدیم؟
یعنی مثلا یه برنامه داشته باشیم که اجرا باشه و تو tray نمایش بده که اجراست!
و وقتی که اجراش تموم شد از tray حذف بشه؟

[Felony]

بارها بحث شده ، اگر از دلفی 7 استفاده میکنید از کامپوننت CoolTary و اگر از دلفی 2009 به بعد استفاده میکنید خودش کامپوننت TaryIcon داره .

[majidbestgame]

میتونی از کتابخانه ی Shellapi استفاده کنی.....
با کد زیر فک کنم کارت راه بیفته....این کد آیکون برنامه را به Tray آیکون اضافه میکنه

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Shellapi, ExtCtrls;



  const WM_NotifyIcon = WM_User+333;

  ...

  private

    { Private declarations }

    tnid: TNotifyIconData; // use shell api

    HMainIcon:HIcon;

    procedure CMClickIcon (var msg: TMessage); Message WM_NotifyIcon; // baraye control click roye tray icon



  public

    { Public declarations }

  end;

  ...	

  ...

  procedure Tform1.CMClickIcon(var msg: Tmessage);

  begin

    case msg.LParam of

    WM_LButtonDown: Show;

    end;

  end;





procedure TForm1.FormCreate(Sender: TObject);

begin

  HMainIcon             :=loadicon(MainInstance,'MainICon');



  shell_NotifyIcon(NIM_Delete,@tnid);



  tnid.cbSize           :=sizeof(TNotifyIconData);

  tnid.Wnd              :=handle;

  tnid.uID              :=0147;

  tnid.uFlags           :=Nif_Message or Nif_Icon or Nif_tip;

  tnid.uCallbackMessage :=WM_NotifyIcon;

  tnid.hIcon            :=HMainIcon;

  tnid.szTip            :='majidbestgame';



  Shell_NotifyIcon(NIM_add,@tnid);

end;

بعد برای حذف Tray آیکون بعد از بستن برنامه از کد زیر استفاده کن

Shell_NotifyIcon(NIM_Delete,@tnid);

با این کد ها نیازی به هیچ کامپونتی نداری...