怎样将一个程序从托盘中唤醒过来？就像FOXMAIL已最小化到托盘，现在我要将它SHOW到桌面上来。(100分)

del520 · 2003-12-09

程序已经运行了，有可能用户没注意，又会去再次启动程序，所以我想用一代码，如果程序窗口句柄已存在，就将它SHOW出来。 程序有可能有两程序状态 1.最小化了 2.最小化到托盘了 所以我想到了消息，但我用SendMessage(handle,WM_SHOWWINDOW,0,0) 无法将我的程序唤醒过来。 应该怎么办？

skadon · 2003-12-09

unit.pas中 const   CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息}   SuperWebAppName = 'Files Just Running'; {指定窗口名称} procedure TForm1.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   Params.WinClassName := SuperWebAppName; end; {处理“恢复”消息} procedure TForm1.RestoreRequest(var message: TMessage); begin   SHOW;   exit;   if IsIconic(Application.Handle) = TRUE then     Application.Restore   else     Application.BringToFront; end; dpr文件中： program GoProxy; uses   Forms,windows,messages,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} var   RvHandle : hWnd; begin   RvHandle := FindWindow(SuperWebAppName,NIL);   if RvHandle > 0 then   begin     PostMessage(RvHandle,CM_RESTORE,0,0);     halt;   end;   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

del520 · 2003-12-09

试了一下，SHOW不出来。

zjan521 · 2003-12-09

假设是Delphi写的程序，那么需要注意Application.Handle和MainForm.Handle的区别。尼需要发消息的是Application.Handle。通过WindowFromPoint只能得到MainForm.Handle.

the19hells · 2003-12-09

我想问一下，如果是一个子窗口，如何让他SHOW出来，我试着编写 Function Createform(ParentApplication:TApplication;ParentForm:TForm;const UserName:String):String; export; stdcall; var   OForm_rs: TOForm_rs; begin   Application:=ParentApplication;   CoInitialize(Nil);   OForm_rs:=TOForm_rs.Create(ParentForm);   OForm_rs.MyParentForm:=ParentForm;   OForm_rs.MyParentApplication:=ParentApplication;   OForm_rs.User :=UserName ;   OForm_rs.Show; end; 但是却不知怎样找到这个窗口，无法保证只开一个，请赐教！

dxwleaf · 2003-12-09

和你碰到了同一个问提,可以发消息将 其关但不知怎将其重SHOW！

del520 · 2003-12-09

谁再来看看啊？

chinargb · 2003-12-09

找个控件不就得了！

del520 · 2003-12-09

不需要用到控件那么麻烦吧，总觉得好像用一个消息就可以搞定，但就是弄不出来。 发送一个CLOSE的消息又可以。

sunus.net · 2003-12-10

如果是最小化，用上面的方法就可以SHOW了，如果是最小化到托盘，就必须将窗口的WS_EX_TOOLWINDOW风格去掉再用上面的方法才行。

hongxing_dl · 2003-12-10

托盘消息处理： const WM_MYTRAYICONCALLBACK = WM_USER + 1000 ; private    MyTrayIcon : TNotifyIconData ;    procedure WMMyTrayIconCallBack(Var Msg : TMessage);    message WM_MYTRAYICONCALLBACK ;//托盘消息处理过程 // procedure TFrmMySrv.FormCreate(Sender: TObject); begin  Icon.Handle := LoadIcon(Hinstance,'MAINICON');  MyTrayIcon.cbSize := SizeOf(TNotifyIconData);  MyTrayIcon.Wnd := Handle ;  MyTrayIcon.uID := 1 ;  MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE ;  MyTrayIcon.uCallBackMessage := WM_MYTRAYICONCALLBACK ;///////////////将自定义托盘消息传递进去  MyTrayIcon.hIcon := Icon.Handle;  StrCopy (MyTrayIcon.szTip, PChar(Caption));  Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);  ShowWindow(Handle,sw_Hide);  Visible := False ;  Application.ShowMainForm := False ;  SetForegroundWindow(Application.Handle); end; ////消息过程实现 procedure TFrmMySrv.WMMyTrayIconCallBack(var Msg: TMessage); var CursorPos : TPoint; begin  case Msg.LParam of    WM_LBUTTONDBLCLK : //双击消息：弹出主窗口    begin      //你就试试下面这几句看行不行      Visible := not Visible ;      Application.ShowMainForm := Visible ;      SetForegroundWindow(Application.Handle);    end ;    WM_RBUTTONDOWN : //鼠标右键：弹出菜单    begin      GetCursorPos(CursorPos);      Popupmenu1.Popup(CursorPos.X,CursorPos.Y);//popupmen1里面就可以加入显示主窗口、退出等功能    end ;  end ; end;

我是一只小小鸟 · 2003-12-17

不只道我理解的对不对你可以试试 这是工程文件 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ program Project2; uses   Forms,windows,   Units in 'Units.pas' {Form1}; {$R *.RES} var fhandle : Thandle; begin   fhandle:=findwindow(0,'sx');    if  fhandle =0 then    begin   Application.Initialize;   Application.Title := 'sx';   Application.CreateForm(TForm1, Form1);   Application.Run;  end   else   begin    showwindow(fhandle,SW_RESTORE);    setforegroundwindow(fHandle )    end;  end. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 这是单元文件 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,shellapi,   Menus, StdCtrls; const  MY_MESSAGE = WM_USER + $100; type   TForm1 = class(TForm)     PopupMenu1: TPopupMenu;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }     procedure OnIconNotify(var message:Tmessage);message MY_MESSAGE;     procedure NotifyCreate;   public     { Public declarations }   end; var   Form1: TForm1;   nid:TNotifyIconData;   messageid:dword; implementation {$R *.DFM} { TForm1 } procedure TForm1.NotifyCreate; var nid:Tnotifyicondata; begin nid.cbsize:=sizeof(nid); nid.wnd:= form1.Handle ; nid.uID := 1; nid.hIcon :=application.Icon.Handle ; nid.szTip:='hhhh'; nid.uCallbackMessage :=MY_MESSAGE; nid.uFlags :=NIF_ICON or NIF_TIP or NIF_MESSAGE; if not shell_notifyicon(NIM_ADD,@nid) then begin   showmessage('出错了');   application.Terminate ;   end; setwindowlong(application.handle,GWL_ExSTYLE,WS_EX_TOOLWINDOW); end; procedure TForm1.OnIconNotify(var message: Tmessage); const busy:boolean = false; var mypt:tpoint; begin inherited; if not busy  then     begin      busy:=true;      if message.LParam = WM_LBUTTONDOWN then           begin           application.Restore;           setforegroundwindow(application.Handle );           end           else            if message.LParam = WM_RBUTTONDOWN then            begin            getcursorpos(mypt);            popupmenu1.popup(mypt.x,mypt.y);            end;            message.Result:=0;            end;         busy:= false; end; procedure TForm1.FormCreate(Sender: TObject); begin form1.NotifyCreate ; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin shell_notifyicon(nim_delete,@nid); end; end.

我是一只小小鸟 · 2003-12-17

不好意思低级错误 nid 申明了两次应该是全局变量

怎样将一个程序从托盘中唤醒过来？就像FOXMAIL已最小化到托盘，现在我要将它SHOW到桌面上来。(100分)

del520

Unregistered / Unconfirmed

skadon

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

the19hells

Unregistered / Unconfirmed

dxwleaf

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

chinargb

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

sunus.net

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

Similar threads