yaas
سه شنبه 02 دی 1382, 13:38 عصر
سلام
من سوالم به تیتر هیچ ربطی نداره
ببخشیدا
آقا من تو Notification چطوری می تونم آیکون برناممو بزارم
ممنون
ویرایش شده ( Mashata )
مهدی کرامتی
سه شنبه 02 دی 1382, 14:20 عصر
اگر میخواهید پاک نشه تیتر سوالتون رو اصلاح کنید.
yaas
سه شنبه 02 دی 1382, 14:27 عصر
سلام
اینطوری نوشتم یه مسلومن پیداشه بیاد تو جوابمو بده
phantasm
سه شنبه 02 دی 1382, 14:50 عصر
:roll:
ramin_rp
سه شنبه 02 دی 1382, 15:04 عصر
سلام
کد زیر را امتحان کنید
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.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.