最小化消息的截获 ( 积分: 50 )

huhuc · 2005-09-06

我想在某个程序最小化时候，放到系统托盘了，现在用的是WMSysCommand.WParam=SC_MINIMIZE 可以通过。 但是有的程序，比如flashget在你按下win＋D的时候，或者点那个显示桌面的时候，窗体也会消失，请问这是怎么实现的？

huhuc · 2005-09-06

我想在某个程序最小化时候，放到系统托盘了，现在用的是WMSysCommand.WParam=SC_MINIMIZE 可以通过。 但是有的程序，比如flashget在你按下win＋D的时候，或者点那个显示桌面的时候，窗体也会消失，请问这是怎么实现的？

chenybin · 2005-09-06

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1201512 －－－－－－－－－－－－－－－－－－－－－－－转自网络 如果你要在应用程序窗体最小化的时候隐藏，那么你要写如下的函数： procedure TForm1.MinimizeForm(Sender:TObject); begin  //Hide Application Task Bar  ShowWindow(Application.Handle,SW_HIDE); end; 然后在Form1的构造函数加入下列语句： Application.OnMinimize:=MinimizeForm;

YuD · 2005-09-07

在主Form上添加ApplicationEvents(在Additional页内)控件,有最小化事件.

江南草 · 2005-09-07

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/shell.asp

江南草 · 2005-09-07

参见shell object的MinimizeAll方法。

chenybin · 2005-09-07

好像有个ToggleDesktop ，不过不知道怎么拦截这两个东西，楼上的MinimizeAll不知道怎么用 http://www.delphibbs.com/delphibbs/dispq.asp?LID=1424533

无泪 · 2005-09-08

代码： unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, ExtCtrls, Spin,shellAPI, Menus, ImgList; const  WM_BARICON=WM_USER+200; type  TForm1 = class(TForm)    SpinEdit1: TSpinEdit;   StaticText1: TStaticText;    BitBtn1: TBitBtn;    BitBtn2: TBitBtn;    PopupMenu1: TPopupMenu;    N1: TMenuItem;    N2: TMenuItem;   procedure BitBtn1Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);    procedure SpinEdit1Change(Sender: TObject);    procedure N2Click(Sender: TObject);    procedure N1Click(Sender: TObject);  private    procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;    procedure WMBarIcon(var Message:TMessage);message WM_BARICON; Private declarations }    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.BitBtn1Click(Sender: TObject); begin end; procedure TForm1.BitBtn2Click(Sender: TObject); begin  close; end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin  Timer1.Interval:=strtoint(SpinEdit1.Text)*1000; end; procedure TForm1.WMBarIcon(var Message: TMessage); var  lpData

NotifyIconData;  pos:TPoint; begin  case  Message.LParam of   WM_LBUTTONDBLCLK:    begin      //如果用户双击击任务栏图标则将图标删除并回复窗口。      lpData := new(PNotifyIconDataA);      lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);      lpData.Wnd := Form1.Handle;      lpData.hIcon := application.Icon.Handle;// Form1.Icon.Handle;      lpData.uCallbackMessage := WM_BARICON;      lpData.uID :=0;      lpData.szTip := 'Samples';      lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;      Shell_NotifyIcon(NIM_DELETE,lpData);      dispose(lpData);      Form1.Visible := True;    end;  WM_RBUTTONDOWN:  //用户单击右键，则弹出菜单    begin      getcursorpos(pos);      popupmenu1.Popup(pos.x,pos.y);    end;  end; end; procedure TForm1.WMSysCommand(var Message: TMessage); var  lpData

NotifyIconData; begin  if Message.WParam =SC_ICON then  begin//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标    lpData:= new(PNotifyIconDataA);    lpData.cbSize := 88; //SizeOf(PNotifyIconDataA);    lpData.Wnd := Form1.Handle;    lpData.hIcon :=application.Icon.Handle;// Form1.Icon.Handle;    lpData.uCallbackMessage := WM_BARICON;    lpData.uID :=0;    lpData.szTip := 'Hello';    lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;    Shell_NotifyIcon(NIM_ADD,lpData);    dispose(lpData);    Form1.Visible :=False;  end  else  begin //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。    DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);  end; end; procedure TForm1.N2Click(Sender: TObject); var  lpData

NotifyIconData; begin  lpData := new(PNotifyIconDataA);  lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);  lpData.Wnd :=Form1.Handle;  lpData.hIcon :=application.Icon.Handle;// Form1.Icon.Handle;  lpData.uCallbackMessage :=WM_BARICON;  lpData.uID :=0;  lpData.szTip := 'Samples';  lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;  Shell_NotifyIcon(NIM_DELETE,lpData);  dispose(lpData);  Form1.Visible :=True; end; procedure TForm1.N1Click(Sender: TObject); begin  close; end; end. 如果在退出时一起删除图标，则： procedure TForm1.N2Click(Sender: TObject); var  lpData

NotifyIconData; begin  lpData := new(PNotifyIconDataA);  lpData.Wnd :=Form1.Handle;  lpData.uID :=0;  Shell_NotifyIcon(NIM_DELETE,lpData);  dispose(lpData);  close; end; 在TNotifyIconData结构中最基本的元素就是Wnd和uID，由这两个元素确立托盘图标在系统托盘中的唯一性（其实这跟操作系统中用全局原子区别它是一样的），uID是自定义的托盘标识，当一个窗口有多个托盘图标时才显得有意义。 您说用Shell_NotifyIcon(NIM_DELETE,@lpData);不行，则可能是您设置TNotifyIconData时没做好，要用NIM_DELETE删除图标，正常应该有三个元素是必须设置的：除上面两个外，还有一个就是：cbSize　！而且它必须在最前设置，否则无效。这跟new(PNotifyIconDataA);是一样的意思。如： procedure TForm1.N1Click(Sender: TObject); var  lpData : TNotifyIconData; begin //下面SizeOf()不能是PNotifyIconData，否则变成指针的大小了  lpData.cbSize := SizeOf(TNotifyIconData);  lpData.Wnd :=Form1.Handle;  lpData.uID :=0;  Shell_NotifyIcon(NIM_DELETE,@lpData);  close; end; 其实这样就已经可以完全正常删除一个托盘图标，当然用NIM_ADD添加就不一样了

huhuc · 2005-09-08

无泪啊，你说了这么多，审题了吗？ 还好问题解决了！

最小化消息的截获 ( 积分: 50 )

huhuc

Unregistered / Unconfirmed

huhuc

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

YuD

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

无泪

Unregistered / Unconfirmed

huhuc

Unregistered / Unconfirmed

Similar threads