Notification

[yaas]

سلام
من سوالم به تیتر هیچ ربطی نداره
ببخشیدا
آقا من تو Notification چطوری می تونم آیکون برناممو بزارم
ممنون

ویرایش شده ( Mashata )

[مهدی کرامتی]

اگر میخواهید پاک نشه تیتر سوالتون رو اصلاح کنید.

[yaas]

سلام
اینطوری نوشتم یه مسلومن پیداشه بیاد تو جوابمو بده

[phantasm]

:roll:

[ramin_rp]

سلام
کد زیر را امتحان کنید
unit media
;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private

public
{ Public declarations }
end;
const
wm_icontray = wm_user +1;
var
Form1: TForm1;
ico : tnotifyicondata;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with ico do begin
hicon := icon.Handle;
strpcopy(sztip, application.Title);
wnd :=handle;
ucallbackmessage := wm_icontray;
uid := 1;
uflags := nif_message + nif_icon + nif_tip;
cbsize := sizeof(tnotifyicondata);
end;
shell_notifyicon(nim_add, @ico);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @ico);
end;

end.