请问怎样让程序启动后放在右下角的人物栏里？(100分)

aerobull · 2001-03-20

不介意的话用rxlib中的控件吧。 5秒钟解决。

hnzgf · 2001-03-20

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI; const   WM_TRAYNOTIFY = WM_USER+100; //任务区小图标自定义消息 type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }     procedure TrayNotifyMessage(var Sender: TMessage); message WM_TRAYNOTIFY;     procedure MarkTaskBarIcon(Sender: TObject);   public     { Public declarations }   end; var   Form1: TForm1;   tnd : TNOTIFYICONDATA; implementation {$R *.DFM} procedure TForm1.MarkTaskBarIcon(Sender: TObject); begin   Form1.Visible := False;   tnd.cbSize := sizeof(tnd);   tnd.Wnd := Handle;   tnd.uID := 128;   tnd.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;   tnd.uCallbackMessage := WM_TRAYNOTIFY;   tnd.hIcon := Application.Icon.Handle;   StrPCopy(tnd.szTip,Application.Title);   Shell_NotifyIcon(NIM_ADD,@tnd); end; procedure TForm1.TrayNotifyMessage(var Sender: TMessage); begin   if Sender.LParam = WM_LBUTTONDBLCLK then   begin     Shell_NotifyIcon(NIM_DELETE,@tnd);     Form1.Visible := True;     Application.Restore;     Application.BringToFront;   end; end; procedure TForm1.FormCreate(Sender: TObject); begin    Application.OnMinimize := MarkTaskBarIcon; end; end.

雁孤行 · 2001-03-20

控件多多,哪个好用就用哪个.

hnzgf · 2001-03-20

我不赞成这么个小程序就用控件，控件屏蔽了好多东西，不如自己编程，还可以多学点知识

zhangkan · 2001-03-20

上面的方法已经可行了。

porsche · 2001-03-21

我还是赞成用控件， 1。思夷长技以治夷。一般控件都带源码，你可以参考分析完善； 2。聪明的程序员用DELPHI，如果你每段程序都亲自去琢摸去写，    你哪来这么多的时间精力？你写个程序不会从操作系统写起吗？

fu_xiang_yu · 2001-03-21

hnzgf的程序很多地方都有，也是最经典的一个 就这样没错

Iveny · 2001-03-21

可是运行那程序，什么都没有啊！都不能放在右下角的任务栏的！

bald_eagle · 2001-03-22

其实对任务栏编程也很简单，但既然你没试过，我还是建议你使用控件 例如：,TrayIcon,TNotifyIcon 你可以在www.google.com上查询这两个关键字，可以找到许多相关的资料。 例如以下关于tnotifyicon： TNotifyIcon 控件1.01 (Build use Delphi 3.0) 说明: 作用: 往通知区加图标,并可显示,隐藏,修改这个图标. 属性(properties): NotifyIcon:TIcon 欲加在通知区的图标 IsVisible:boolean NotifyIcon是否显示的属性 Title:string 通知区图标上的提示(最多64个字符) PopupMenu:TPopupMenu 点击通知区图标弹出的菜单 PopupStyle:TPopupStyle 弹出菜单的方式 TPopupStyle=Set of (Left_Click,Right_Click,Left_DbClick,Right_DbClick); 方法(methods): ShowIcon 将图标显示在通知区上 HideIcon 将通知区上的图标隐藏 ModifyIcon 修改通知区上的图标(若IsVisible=false,则不显示出来) Create(AOwner: TComponent); override; 构造方法 Destroy; override; 析构方法 事件(Events): OnIconMouseDown: procedure(Sender:TObject;x,y:Word;WhoButton:TWhoButton) of Object; ( 在Mouse点击通知区上的图标时发生,x,y为Mouse在屏幕上的坐标, WhoButton=b_Left为点击左键,WhoButton=b_Right为点击右键, ) OnIconDoubleClick: procedure(Sender:TObject;x,y:Word;WhoButton:TWhoButton) of Object; ( 在Mouse双击通知区上的图标时发生,x,y为Mouse在屏幕上的坐标, WhoButton=b_Left为双击左键,WhoButton=b_Right为双击右键, ) 关于Demo: 这个演示程序给出了TNotifyIcon的基本用法. 包含文件: NotifyIcon.dcr NotifyIcon.pas DemoUnit.pas DemoUnit.dfm PopUnit.pas PopUnit.dfm Demo.dpr Readme.txt 声明: TNotifyIcon 控件 V 1.01 1.这是一个免费控件. 2.如果你使用它,请发一个E-Mail给作者,谢谢. 3我在Delphi3.0 & 4.0 上使用成功 4.若要传播它,请完全分发上述8个文件 作者南昌大学计算系95(1) 付昱纲 1998.8.17 21:50 E-mail fyg@163.net unit NotifyIcon; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DsgnIntf,ShellApi,ExtCtrls,Menus; const WM_MY_Notify=WM_USER+100; type TPopupStyle=Set of (Left_Click,Right_Click,Left_DbClick,Right_DbClick); TWhoButton=(b_Left,b_Right); TMouseEvent= procedure(Sender:TObject;x,y:Word;WhoButton:TWhoButton) of Object; //---------class TNotifyIcon--------- TNotifyIcon = class(TCustomControl) private { Private declarations } FIcon:TIcon; FPda

NOTIFYICONDATA; FTitle:string; FIconVisible:boolean; FPopupMenu:TPopupMenu; FPopupStyle:TPopupStyle; FOnIconMouseDown:TMouseEvent; FOnIconDoubleClick:TMouseEvent; procedure SetIcon(Icon:TICON); procedure SetTitle(NewTitle:string); function IsShowing:boolean; procedure ShowIt(Accept:boolean); procedure NotifyIconClick(var msg : TMessage); Message WM_My_Notify; protected { Protected declarations } public { Public declarations } property IsVisible:boolean read IsShowing write ShowIt; constructor Create(AOwner: TComponent); override; procedure ShowIcon; procedure HideIcon; destructor Destroy; override; procedure ModifyIcon(NewIcon:TIcon); procedure Paint;override; published { Published declarations } property Height default 33; property Width default 33; property NotifyIcon:TIcon read FIcon write SetIcon; property Title:string read FTitle write SetTitle ; property OnIconDoubleClick:TMouseEvent read FOnIconDoubleClick write FOnIconDoubleClick; property OnIconMouseDown:TMouseEvent read FOnIconMouseDown write FOnIconMouseDown; property PopupMenu:TPopupMenu read FPopupMenu write FPopupMenu; property PopupStyle:TPopupStyle read FPopupStyle write FPopupStyle default []; end; procedure Register; implementation procedure Register; begin RegisterComponents('MyControl', [TNotifyIcon]); end; procedure TNotifyIcon.ShowIt(Accept:boolean); begin if Accept=true then ShowIcon else HideIcon; end; procedure TNotifyIcon.Paint; begin if (csDesigning in ComponentState) then begin Width:=33; Height:=33; With Canvas do begin Brush.Color:=clInfoBk; Ellipse(0,0,Self.Width,Self.Height); Font.Color:=clBlue; Brush.Style:=bsClear; FloodFill(5,5,clInfoBk,fsBorder); Brush.Color:=clInfoBk; TextOut(3,Self.Height div 2-6,'Notify'); end end; end; procedure TNotifyIcon.NotifyIconClick(var msg : TMessage); var p:TPoint; begin try case msg.LParam of WM_LBUTTONDOWN: begin GetCursorPos(p); if Left_Click in FPopupStyle then begin SetForegroundWindow(ParentWindow); FPopupMenu.Popup(p.x,p.y); end; if Assigned(FOnIconMouseDown) then begin FOnIconMouseDown(Self,p.x,p.y,b_Left); end; end; WM_RBUTTONDOWN: begin GetCursorPos(p); if Right_Click in FPopupStyle then begin SetForegroundWindow(ParentWindow); FPopupMenu.Popup(p.x,p.y); end; if Assigned(FOnIconMouseDown) then begin FOnIconMouseDown(Self,p.x,p.y,b_Right); end; end; WM_LBUTTONDBLCLK: begin GetCursorPos(p); if Left_DbClick in FPopupStyle then begin SetForegroundWindow(ParentWindow); FPopupMenu.Popup(p.x,p.y); end; if Assigned(FOnIconDoubleClick) then begin FOnIconDoubleClick(Self,p.x,p.y,b_Left); end; end; WM_RBUTTONDBLCLk: begin GetCursorPos(p); if Right_Click in FPopupStyle then begin SetForegroundWindow(ParentWindow); FPopupMenu.Popup(p.x,p.y); end; if Assigned(FOnIconDoubleClick) then begin FOnIconDoubleClick(Self,p.x,p.y,b_Right); end; end; end; except end; end; function MAKELANGID(p, s:word):Cardinal; begin result:= (((s)shl 10) or(p)); end; constructor TNotifyIcon.Create(AOwner: TComponent); begin try inherited Create(AOwner); FIcon:=TIcon.Create; Height:=36; Width:=36; Visible:=false; FTitle:='Welcome'; FIconVisible:=false; //-------------set tray info--------- ParentWindow:=TWinControl(AOwner).Handle; New(Fpda); With FPda^ do begin uCallbackMessage:=WM_MY_Notify; cbsize:=SizeOf(FPda^); uID:=200; wnd:=Handle; uFlags:=NIF_ICON+NIF_Tip+NIF_MESSAGE; end; if (csDesigning in ComponentState) then begin if GetUserDefaultLCID = MAKELANGID(LANG_CHINESE,SUBLANG_CHINESE_SIMPLIFIED) then Application.MessageBox( 'Write by 南昌大学付昱纲'#13#13'E-mail:fyg@163.net'#13#13' 1998.8.17', 'TNotifyIcon 控件 V 1.01',MB_OK+ MB_ICONINFORMATION) else Application.MessageBox( 'Write by NanChang University FuYuGang'#13#13'E-mail:fyg@163.net'#13#13' 1998.8.17', 'TNotifyIcon Component V 1.01',MB_OK+ MB_ICONINFORMATION); end; except ShowMessage('TNotifyIcon Create error'); end; end; procedure TNotifyIcon.SetIcon(Icon:TICON); begin FIcon.Assign(Icon); end; procedure TNotifyIcon.ShowIcon; begin try if FIcon.Handle=0 then begin Exit; end; if FIcon.Handle<>FPda^.hIcon then HideIcon; if FIconVisible=false then begin FPda^.hIcon:=FIcon.handle; FIconVisible:=true; Shell_NotifyIcon(NiM_ADD,FPda); end; except ShowMessage('TNotifyIcon Show Error '); end; end; procedure TNotifyIcon.HideIcon; begin try if FIconVisible then begin FIconVisible:=false; Shell_NotifyIcon(NiM_DELETE,FPda); end; except ShowMessage('TNotifyIcon Hide Error'); end; end; procedure TNotifyIcon.SetTitle(NewTitle:string); begin FTitle:=NewTitle; StrCopy(FPda^.szTip,PChar(FTitle)); if FIconVisible then begin HideIcon; ShowIcon; end; end; destructor TNotifyIcon.Destroy; begin try HideIcon; Dispose(FPda); FIcon.Free; inherited Destroy; except ShowMessage('TNotifyIcon Destroy Error'); end; end; procedure TNotifyIcon.ModifyIcon(NewIcon:TIcon); begin try SetIcon(NewIcon); FPda^.hIcon:=FIcon.handle; if FIconVisible then Shell_NotifyIcon(NiM_Modify,FPda); except ShowMessage('TNotifyIcon Modify Error'); end; end; function TNotifyIcon.IsShowing:boolean; begin Result:=FIconVisible; end; end.

悲酥清风 · 2001-03-22

如果你没学过任务栏编程，那建议你自己写一下，可以了解很多东东。 如果以前学过，那用控件得了，再写也不过是重复劳动，学不到东西的。

Iveny · 2001-03-22

我想自己写写，请问可以给我个简单而又可行的例子吗？

hnzgf · 2001-03-22

你把我给你的例子堑到你的程序中就可以用，事件和代码不是都有吗？

悲酥清风 · 2001-03-22

到CSDN中有郝新庚改写的AHM中的一个控件，带源码，挺不错的。

Iveny · 2001-03-22

TO: hnzgf 你好，你的程序是最好的解决方案，但我新建工程，把你的代码拷入，运行程序后什么都 没有发生啊？！右下角托盘区什么也没有！

hnzgf · 2001-03-22

我这可以呀，另外你不要直接paste过去，最好，一步一步来，把事件声明好以后，再把 事件代码paste过去，最好不要直接全部paste! 祝你好运！另外你的信箱是多少，我给你寄例子 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI; const   WM_TRAYNOTIFY = WM_USER+100; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }     procedure TrayNotifyMessage(var Sender: TMessage); message WM_TRAYNOTIFY;     procedure MarkTaskBarIcon(Sender: TObject);   public     { Public declarations }   end; var   Form1: TForm1;   tnd : TNOTIFYICONDATA; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin    Application.OnMinimize := MarkTaskBarIcon; end; procedure TForm1.MarkTaskBarIcon(Sender: TObject); begin    Form1.Visible := False;    tnd.cbSize := sizeof(tnd);    tnd.Wnd := Handle;    tnd.uID := 128;    tnd.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;    tnd.uCallbackMessage := WM_TRAYNOTIFY;    tnd.hIcon := Application.Icon.Handle;    StrPCopy(tnd.szTip,Application.Title);    Shell_NotifyIcon(NIM_ADD,@tnd); end; procedure TForm1.TrayNotifyMessage(var Sender: TMessage); begin    if Sender.LParam = WM_LBUTTONDBLCLK then   begin     Shell_NotifyIcon(NIM_DELETE,@tnd);     Form1.Visible := True;     Application.Restore;     Application.BringToFront;   end; end; end.

Iveny · 2001-03-22

十分感谢hnzgf，我已经用你的代码实现了，谢谢！！！ 在你的代码的基础上，我想在最小化时，托盘区的图标实现闪动的效果，请问怎样修改你的 代码？ 谢谢！！！

jacer · 2001-03-22

timer

hnzgf · 2001-03-23

其实也就是用Timer,然后放一个ImageList,不断地GetIcon,变换图标索引就可以了， 我可以给你一个商品控件，你一看就明白了，请于我联系，hnzgf@sina.com 大富翁太慢了，我好久都上不来 Good luck!

Iveny · 2001-03-23

十分感谢hnzgf，控件我是有的，但不想用控件，如果将这功能闪动图标的功能加到你的 例子里，完整的例子是？谢谢！期待你的回复！ 我的E-mail是iveny@163.net

请问怎样让程序启动后放在右下角的人物栏里？(100分)

Iveny

Unregistered / Unconfirmed

aerobull

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

雁孤行

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

zhangkan

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

fu_xiang_yu

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

bald_eagle

Unregistered / Unconfirmed

悲酥清风

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

悲酥清风

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

jacer

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

Similar threads