怎样才能作出像foxmail或者金山词霸那样最小化时变成系统托盘的效果呢？？？(50分)

coconut123 · 2003-10-19

用了shell_notifyicon函数，想在最小化时才用，窗体的最小化会触发什么事件呢？ 找了半天没找到？或者还有其他办法呢？ 多谢了

011101 · 2003-10-19

unit serverform; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons, Grids, shellapi, Menus; const  WM_TRAYICON = WM_APP + 0; type   Twzadmin = class(TForm)     Label1: TLabel;     BitBtn1: TBitBtn;     PopupMenu: TPopupMenu;     close1: TMenuItem;     ol1: TMenuItem;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     procedure BitBtn1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure N3Click(Sender: TObject);     procedure ol1Click(Sender: TObject);   private     { Private declarations }     procedure syscommand(var message:twmsyscommand);message wm_syscommand;     procedure wmtrayicon(var message:Tmessage);message wm_trayicon;     procedure modifytrayicon(action:dword);   public     { Public declarations }   end; var   wzadmin: Twzadmin; implementation uses serverdata; {$R *.dfm} procedure Twzadmin.BitBtn1Click(Sender: TObject); begin close; end; procedure Twzadmin.modifytrayicon(action: dword); var  nidata:tnotifyicondata; begin  nidata.cbSize:=sizeof(tnotifyicondata);  nidata.uID:=0;  nidata.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;  nidata.Wnd := Handle;  nidata.uCallbackMessage:=wm_trayicon;  nidata.hIcon:=application.Icon.Handle;  strpcopy(nidata.szTip,application.Title);  shell_notifyicon(action,@nidata); end; procedure Twzadmin.wmtrayicon(var message: Tmessage); var  mousepos:tpoint; begin  if message.LParam=wm_Rbuttondown then   begin     setactivewindow(handle);     getcursorpos(mousepos);     popupmenu.Popup(mousepos.X,mousepos.Y);   end;   if message.LParam=wm_Lbuttondblclk then //雙擊    begin     n3.Click;    end; end; procedure Twzadmin.FormCreate(Sender: TObject); begin  modifytrayicon(nim_add); end; procedure Twzadmin.FormClose(Sender: TObject; var Action: TCloseAction); begin  modifytrayicon(nim_delete); end; procedure Twzadmin.N3Click(Sender: TObject); begin  self.Show; end; procedure Twzadmin.syscommand(var message: twmsyscommand); begin  if message.CmdType=sc_minimize then    self.Hide  else if message.CmdType=sc_maximize then  else inherited ;   end; procedure Twzadmin.ol1Click(Sender: TObject); begin  self.Close; end; end.

jjqqw · 2003-10-19

去playicq下个trayicon不就行了，代码都不用写[

]

忆清 · 2003-10-19

用RX Lib控件，还能随事件改变托盘图标。 下载地址：www.51delphi.com

lovedp · 2003-10-19

raize也行 www.playicq.com或www.51delphi.com

coconut123 · 2003-10-24

想要源代码，自己看看。 希望是在最小化时，在切换任务栏里没有这个程序按钮。大致知道该怎么写，可是却不知道该在哪个事件里加这段代码，窗口最小化(包括当该应用程序active时，再次点击切换任务栏上的程序图标使其最小化)时会触发什么事件呢？ to 011101 你的程序我编译了一下，可是无法击右键，最小化时也没办法在切换任务栏中消失

011101 · 2003-10-24

你說的無法單擊右鍵是什麼意思?mouse坏了?

最小化時可以在任務欄中消失的.不過在撬盤區的圖標在程序關閉后不會自動消失.

低调一贱男 · 2003-10-24

我给你我之前的一个光驱控制的源代码吧

低调一贱男 · 2003-10-24

unit Unit1; interface uses      Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, mmsystem, StdCtrls, ActnList, ExtCtrls, Buttons,      Graphics, ComCtrls, dialogs, shellapi, Menus; type      TForm1 = class(TForm)           ActionList1: TActionList;           diskopen: TAction;           diskclose: TAction;           flash: TAction;           Panel1: TPanel;           StatusBar1: TStatusBar;           SpeedButton1: TSpeedButton;           SpeedButton2: TSpeedButton;           SpeedButton3: TSpeedButton;           Image1: TImage;           SpeedButton4: TSpeedButton;           SpeedButton5: TSpeedButton;           Label1: TLabel;           SpeedButton6: TSpeedButton;           PopupMenu1: TPopupMenu;           N1: TMenuItem;           N2: TMenuItem;           N3: TMenuItem;           N4: TMenuItem;           procedure diskopenExecute(Sender: TObject);           procedure diskcloseExecute(Sender: TObject);           procedure flashExecute(Sender: TObject);           procedure SpeedButton5Click(Sender: TObject);           procedure SpeedButton4Click(Sender: TObject);           procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;                Shift: TShiftState; X, Y: Integer);           procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);           procedure IconOnClick(var message: TMessage); message WM_USER + 1;           procedure SpeedButton6Click(Sender: TObject);           procedure FormCreate(Sender: TObject);           procedure N1Click(Sender: TObject);           procedure N2Click(Sender: TObject);           procedure N3Click(Sender: TObject);           procedure N4Click(Sender: TObject);           procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);           procedure PopupMenu1Change(Sender: TObject; Source: TMenuItem;                Rebuild: Boolean);      private     { Private declarations }      public     { Public declarations }      end; var      Form1: TForm1;      moveflag: boolean;      movex, movey, pressx, pressy: integer; implementation {$R *.dfm} procedure TForm1.diskopenExecute(Sender: TObject); begin      self.StatusBar1.Panels.Items[0].Text := '光驱';      if (DiskFree(7) = -1) then self.StatusBar1.Panels.Items[1].Text := '已经打开'      else      begin           mciSendString('Set cdaudio door open wait', nil, 0, handle);           StatusBar1.Panels.Items[1].Text := ' 打开';           self.Refresh;      end end; procedure TForm1.diskcloseExecute(Sender: TObject); begin      self.StatusBar1.Panels.Items[0].Text := '光驱';      if not (DiskFree(7) = -1) then StatusBar1.Panels.Items[1].Text := '已经闭合'      else      begin           mciSendString('Set cdaudio door closed wait', nil, 0, handle);           StatusBar1.Panels.Items[1].Text := '闭合';           self.Refresh;      end end; procedure TForm1.flashExecute(Sender: TObject); var      S, sstr: string;      AmtFree: single;      Total: single;      l: single; begin      if DiskFree(8) = -1 then StatusBar1.Panels.Items[1].Text := '闪盘已经取走'      else      begin           AmtFree := DiskFree(8);           Total := DiskSize(8);     //showmessage(inttostr(Total));           l := (AmtFree / Total) * 100;           sstr := floattostr(l);           sstr := copy(sstr, 1, length(sstr) - 11);           S := '有' + sstr + '%的可用空间:  ' + floattostr(AmtFree / 1024) + 'KB 可用';           self.StatusBar1.Panels.Items[0].Text := '闪盘';           self.StatusBar1.Panels.Items[1].text := s;      end end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin      close; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin      application.Minimize;   //SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);      ShowWindow(application.Handle, SW_HIDE); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer); begin      movex := x;      movey := y; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer); begin      if (shift = [ssleft]) then      begin           self.left := self.left + (x - movex);           self.top := self.top + (y - movey);      end end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin      ShellAbout(Handle, '光驱精灵1.0#是一坨狗屎', '光驱精灵', Application.Icon.Handle); end; procedure TForm1.FormCreate(Sender: TObject); var      IconData: TNotifyIconData;      cdromicon: ticon; begin      SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);      CdRomIcon := TIcon.Create;      CdRomIcon.Handle := application.Icon.Handle; //LoadFromFile('zig.ico');      IconData.cbSize := SizeOf(IconData);      IconData.Wnd := Handle;      IconData.uID := 1;      IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;      IconData.uCallBackMessage := WM_USER + 1;      IconData.hIcon := CdRomIcon.Handle;      IconData.szTip := '光驱精灵1.0 刘昆制作';      Shell_NotifyIcon(NIM_ADD, @IconData);      self.Hide; end; procedure tform1.IconOnClick(var message: Tmessage); var      p: TPoint; begin      if (message.lParam = WM_LBUTTONDOWN) then           SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);      if (message.lParam = WM_RBUTTONDOWN) then      begin           GetCursorPos(p);           popupmenu1.Popup(p.x, p.y);      end;      if (message.lParam = WM_LBUTTONDBLCLK) then      begin     //SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);           ShowWindow(application.Handle, 1);      end end; procedure TForm1.N1Click(Sender: TObject); begin      self.diskopenExecute(self); end; procedure TForm1.N2Click(Sender: TObject); begin      self.diskcloseExecute(self); end; procedure TForm1.N3Click(Sender: TObject); begin      self.flashExecute(self); end; procedure TForm1.N4Click(Sender: TObject); begin      self.Close; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var      IconData: TNotifyIconData;      cdromicon: ticon; begin      CdRomIcon := TIcon.Create;      CdRomIcon.Handle := application.Icon.Handle;      IconData.cbSize := SizeOf(IconData);      IconData.Wnd := Handle;      IconData.uID := 1;      IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;      IconData.uCallBackMessage := WM_USER + 1;      IconData.hIcon := CdRomIcon.Handle;      IconData.szTip := '光驱精灵1.0 刘昆制作';      Shell_NotifyIcon(NIM_delete, @IconData); end; procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;      Rebuild: Boolean); begin      self.PopupMenu1.AutoPopup := false; end; end.

coconut123 · 2003-10-25

to 011101 我弄错一个地方了，可以右击 还想问的是，通过在任务栏相应的程序上点击右键的最小化是程序最小化时，还想实现同样的功能，怎么办呢？

kunmeng · 2003-10-25

private   FpNotify : PNotifyIconDataA;      //定义托盘图标结构    // procedure TaskIcoMsgDo(var Msg : TMessage); Message c_nTaskIcoMsg;    //Const  c_nTaskIcoMsg = WM_USER + 78;  //托盘图标返回消息    procedure TaskIcoMsgDo(var Msg : TMessage); Message WM_USER + 78; procedure TFormMain.FormCreate(Sender: TObject); begin New(FpNotify); with FpNotify^ do begin Wnd := Handle; uID := 0; uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP; hIcon := Application.Icon.Handle; //uCallbackMessage := c_nTaskIcoMsg;             uCallbackMessage :=WM_USER + 78; szTip := 'Book'; end; Shell_NotifyIcon(NIM_ADD, FpNotify); End; procedure TFormMain.FormDestroy(Sender: TObject); begin //删除任务栏图标 Shell_NotifyIcon(NIM_DELETE, FpNotify); end; //弹出菜单操作 procedure TForm1.TaskIcoMsgDo(var Msg: TMessage); var   g_MousePoint:TPoint; begin if not IsWindowEnabled(Handle) then Exit; // if Msg.LParam = WM_LBUTTONDOWN then    //单击图标，显示(隐藏)窗口 if Msg.LParam = WM_LBUTTONDBLCLK then  //双击图标，显示(隐藏)窗口 Form1.Visible := not Form1.Visible; if Msg.LParam = WM_RBUTTONUP then begin  //右键单击，显示菜单                 GetCursorPos(g_MousePoint); Form1.BringToFront; MenuMain.Popup(g_MousePoint.x, g_MousePoint.y); end; end;

sydan · 2003-10-25

看到楼上讲的那么详细，我想兄弟应该全明白了吧

怎样才能作出像foxmail或者金山词霸那样最小化时变成系统托盘的效果呢？？？(50分)

coconut123

Unregistered / Unconfirmed

011101

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

忆清

Unregistered / Unconfirmed

lovedp

Unregistered / Unconfirmed

coconut123

Unregistered / Unconfirmed

011101

Unregistered / Unconfirmed

低调一贱男

Unregistered / Unconfirmed

低调一贱男

Unregistered / Unconfirmed

coconut123

Unregistered / Unconfirmed

kunmeng

Unregistered / Unconfirmed

sydan

Unregistered / Unconfirmed

Similar threads