关于API的小问题，模拟词霸效果，最小化到任务栏右边。（加急，谢谢提前）(300分)

gophie · 2002-09-02

1、启动后图标出现在任务栏右边小图标区 2、最小化任务栏不出现最小化窗口，仅出现在任务栏右边小图标，并且与1情况有异 3、双击任务栏右边小图标，程序激活 效果类似词霸。

shenloqi · 2002-09-02

建议你看看控件的源代码吧： CoolTray，LMD，AHM，RX，JV(BU)等控件包都有这个功能

gophie · 2002-09-02

不要说工具，告诉我关键的几个API函数，并给个思想就可以啦！

forgot2002 · 2002-09-02

建议你搜索一下帖子吧，也可以到www.playicq.com找找，这样浪费分数实在不明智。

twos · 2002-09-02

不出现最小化窗口，可以使用ShowWindow(Application.Handle,SW_Hide); 隐藏程序窗口，可以用ShowWindow(MainForm.Handle,SW_Hide); 而任务栏的图标，可以使用Shell_NotifyIcon(NIM_ADD,@fIconData); 具体你看Shell_NotifyIcon的帮助，很详细，你可以看懂的

天崖无爱 · 2002-09-02

Shell_NotifyIcon(NIM_ADD,@fIconData); 可以实现！

njhmq · 2002-09-02

DeLphi开发人员指南上又例子，138元/本

wjing · 2002-09-02

uses shellapi; procedure addico; var   ICONDATA: TNOTIFYICONDATA; begin   ICONDATA.Wnd := HANDLE;   ICONDATA.uID := 1;   ICONDATA.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;   ICONDATA.uCallbackMessage := WM_USER + 254;   ICONDATA.hIcon := application.Icon.Handle;   ICONDATA.szTip := 'hello';   shell_notifyicon(nim_add, @icondata); end; procedure delico; var   ICONDATA: TNOTIFYICONDATA; begin   ICONDATA.Wnd := HANDLE;   IconData.cbSize := SizeOf(IconData); //  ICONDATA.Wnd := application.Icon.Handle;   IconData.uID := 1;   IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;   shell_notifyicon(NIM_DELETE, @icondata); end; 自己定义一个最小化,最大化过程如appmini,apprestore 再form的create事件中写入  application.OnMinimize := appmini;   application.OnRestore := apprestore; 在appmini中  addico;   showwindow(application.Handle, sw_hide); 在apprestore中  ShowWindow(application.Handle, SW_SHOW); 搞定.给分吧!

cbdiy · 2002-09-02

给个现成的吧。 unit Unit1; interface uses   Windows, Messages, SysUtils,shellapi, Variants, Classes, Graphics, Controls, Forms,   Dialogs,Registry; const CM_RESTORE = WM_USER  + 100; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormShow(Sender: TObject);   private     procedure WMSysCommand(var msg: TWMSysCommand); message WM_SysCommand;     procedure RestoreRequest(var message:TMessage);message CM_RESTORE;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RestoreRequest(var message:TMessage); begin     if Message.LParam =WM_LBUTTONUP then       //按左键show..     begin       show;       application.BringToFront;     end; end; procedure TForm1.FormCreate(Sender: TObject); var   nid: TNotifyIconData;   myreg:TRegistry;   MySysPath:string; begin   nid.cbSize := sizeof(nid);           //在任务栏创建图标   nid.Wnd := Handle;   nid.uID:=4;   nid.hIcon := Application.Icon.Handle;   nid.szTip := '红太阳Vod数据库程序';   nid.uCallbackMessage := CM_RESTORE;   nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有效   if not Shell_NotifyIcon(NIM_ADD, @nid) then begin      ShowMessage('Failed!');      Application.Terminate;   end; end; procedure TForm1.WMSysCommand(var msg: TWMSysCommand); begin   if msg.CmdType and $FFF0 = SC_MINIMIZE then     hide   else     inherited; end; procedure TForm1.FormShow(Sender: TObject); begin   ShowWindow(Application.Handle,SW_HIDE); end; end.

天真 · 2002-09-02

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ShellAPI, Menus, McMenu, StdCtrls; const   WM_MIDASICON    = WM_USER + 1; type   TForm1 = class(TForm)     PopupMenu1: TPopupMenu;     N1: TMenuItem;     N2: TMenuItem;     McMenu1: TMcMenu;     procedure FormDestroy(Sender: TObject);     procedure N1Click(Sender: TObject);     procedure N2Click(Sender: TObject);   private     FIconData: TNotifyIconData;     procedure InitMenu(var Message: TMessage);  message WM_MIDASICON;     procedure WndProc(var Message: TMessage); override;     { Private declarations }   public     procedure AddIcon;     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WndProc(var Message: TMessage); begin   inherited WndProc(Message); end; procedure TForm1.InitMenu(var Message: TMessage); var   pt: TPoint; begin   case Message.LParam of     WM_RBUTTONUP:     begin       if not Visible then       begin         SetForegroundWindow(Handle);         GetCursorPos(pt);         PopupMenu1.Popup(pt.x, pt.y);       end else         SetForegroundWindow(Handle);     end;     WM_LBUTTONDBLCLK:       if Visible then         SetForegroundWindow(Handle) else //        miPropertiesClick(nil);   end; end; procedure TForm1.AddIcon; begin   with FIconData do   begin     cbSize := SizeOf(FIconData);     Wnd := Self.Handle;     uID := $DEDB;     uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;     hIcon := Forms.Application.Icon.Handle;     uCallbackMessage := WM_MIDASICON;     StrCopy(szTip, PChar(Caption));   end;   Shell_NotifyIcon(NIM_Add, @FIconData); end; procedure TForm1.FormDestroy(Sender: TObject); begin   Shell_NotifyIcon(NIM_delete, @FIconData); end; procedure TForm1.N1Click(Sender: TObject); begin   close; end; procedure TForm1.N2Click(Sender: TObject); begin   show; end; end. ~~~~~~~~~~~~~~~~~~~~~~ program trayico; uses   Forms,   Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin   Forms.Application.ShowMainForm := False;   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Form1.AddIcon;   Application.Run; end.

jsxjd · 2002-09-02

这样的程序网上有非常多的例子。是个系统托盘问题。

ty_unix · 2002-09-02

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Menus,ShellAPI;   const   mousemsg=wm_user+1;   iid=100; type   TForm1 = class(TForm)     PopupMenu1: TPopupMenu;     Exit: TMenuItem;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure ExitClick(Sender: TObject);   private   procedure mousemessage(var message:tmessage);message mousemsg;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   ntida:TNotifyIcondataA; implementation {$R *.DFM} procedure TForm1.mousemessage (var message:tmessage); var   mousept:TPoint; begin   inherited;   if message.LParam=wm_rbuttonup then begin     getcursorpos(mousept);     popupmenu1.Popup(mousept.x,mousept.y);   end;   if message.LParam=wm_lbuttonup then   begin     ShowWindow(Handle,sw_show);     ShowWindow(Application.handle,SW_SHOW);     SetWindowLong(Application.Handle,GWL_eXSTYLE,not (GetWindowLong(Application.handle,gwl_exstyle)or ws_ex_toolwindow and not ws_ex_appwindow));   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   ntida.cbSize:=sizeof(tnotifyicondataa);   ntida.Wnd:=handle;   ntida.uID:=iid;   ntida.uFlags:=nif_icon+nif_tip+nif_message;   ntida.uCallbackMessage:=mousemsg;   ntida.hIcon:=Application.Icon.Handle;   ntida.szTip:='Icon';   shell_notifyicona(NIM_ADD,@ntida); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   Action:=caNone;   ShowWindow(Handle,SW_HIDE);   ShowWindow(Application.Handle,Sw_HIDE);   SetWindowLong(Application.Handle,GWL_EXSTYLE,GETWindowLong(Application.handle,GWL_exstyle)or ws_ex_toolwindow and ws_ex_appwindow); end; procedure TForm1.ExitClick(Sender: TObject); begin   ntida.cbSize:=sizeof(tnotifyicondataa);   ntida.Wnd:=handle;   ntida.uID:=iid;   ntida.uCallbackMessage:=nif_icon+nif_tip+nif_message;   ntida.hIcon:=Application.Icon.Handle;   ntida.szTip:='Icon' ;   Shell_notifyicona(NIM_DELETE,@ntida);   Application.Terminate; end; end.

luckhacker · 2002-09-02

lww · 2002-09-03

请看： http://www.delphibbs.com/delphibbs/dispq.asp?lid=200656 非常详细

gophie · 2002-09-03

多人接受答案了。

关于API的小问题，模拟词霸效果，最小化到任务栏右边。（加急，谢谢提前）(300分)

gophie

Unregistered / Unconfirmed

shenloqi

Unregistered / Unconfirmed

gophie

Unregistered / Unconfirmed

forgot2002

Unregistered / Unconfirmed

twos

Unregistered / Unconfirmed

天崖无爱

Unregistered / Unconfirmed

njhmq

Unregistered / Unconfirmed

wjing

Unregistered / Unconfirmed

cbdiy

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

ty_unix

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

gophie

Unregistered / Unconfirmed

Similar threads