为什么无法改变托盘程序的状态呢？ ( 积分: 50 )

wxc211 · 2005-04-22

如题，而且退出时托盘图标不能自动消失。 type  TForm1 = class(TForm)    PopupMenu1: TPopupMenu;    N1: TMenuItem;    N2: TMenuItem;    PopupMenu2: TPopupMenu;    N3: TMenuItem;    N21: TMenuItem;    procedure FormCreate(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    //托盘图标    FIcon:TIcon;    //定义TNotifyIconData类型的变量    NID:TNotifyIconData;  public    procedure TrayIconMessage(var MSG:TMessage);message WM_USER+100;  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  FIcon:=TIcon.Create;  FIcon.Handle:=LoadIcon(HInstance,'Icon1');  if FIcon.Handle=0 then  begin    Application.MessageBox('无法打开图标1','找不到图标文件1',MB_OK or MB_IconError);    Close;    Exit;  end;  with NID do  begin    //cbSize为本记录的大小    cbSize:=SizeOf(TNotifyIconData);    //Wnd为本窗口句柄    Wnd:=Handle;    //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID    uID:=1;    uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;    uCallbackMessage:=WM_USER+100;    hIcon:=FIcon.Handle;    szTip:='图标1';  end;  Shell_NotifyIcon(NIM_ADD,@NID);  //在任务栏上隐藏程序  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  Shell_NotifyIcon(NIM_DELETE,@NID);  FIcon.Free; end; procedure TForm1.TrayIconMessage(var MSG: TMessage); var  Point:TPoint; begin  if MSG.LParam=WM_LBUTTONDOWN then  begin    Visible:=not Visible;    if MSG.WParam=1 then    begin      FIcon.Handle:=LoadIcon(HInstance,'Icon1');      if FIcon.Handle=0 then      begin        Application.MessageBox('无法打开图标1','找不到图标文件1',MB_OK or MB_IconError);        Close;        Exit;      end;      with NID do      begin        //cbSize为本记录的大小        cbSize:=SizeOf(TNotifyIconData);        //Wnd为本窗口句柄        Wnd:=Handle;        //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID        uID:=2;        uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;        uCallbackMessage:=WM_USER+100;        hIcon:=FIcon.Handle;        szTip:='图标2';      end;    end    else    begin      FIcon.Handle:=LoadIcon(HInstance,'Icon2');      if FIcon.Handle=0 then      begin        Application.MessageBox('无法打开图标2','找不到图标文件2',MB_OK or MB_IconError);        Close;        Exit;      end;      with NID do      begin        //cbSize为本记录的大小        cbSize:=SizeOf(TNotifyIconData);        //Wnd为本窗口句柄        Wnd:=Handle;        //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID        uID:=1;        uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;        uCallbackMessage:=WM_USER+100;        hIcon:=FIcon.Handle;        szTip:='图标1';      end;    end;    Shell_NotifyIcon(NIM_MODIFY,@NID);  end; end;

wxc211 · 2005-04-22

如题，而且退出时托盘图标不能自动消失。 type  TForm1 = class(TForm)    PopupMenu1: TPopupMenu;    N1: TMenuItem;    N2: TMenuItem;    PopupMenu2: TPopupMenu;    N3: TMenuItem;    N21: TMenuItem;    procedure FormCreate(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    //托盘图标    FIcon:TIcon;    //定义TNotifyIconData类型的变量    NID:TNotifyIconData;  public    procedure TrayIconMessage(var MSG:TMessage);message WM_USER+100;  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  FIcon:=TIcon.Create;  FIcon.Handle:=LoadIcon(HInstance,'Icon1');  if FIcon.Handle=0 then  begin    Application.MessageBox('无法打开图标1','找不到图标文件1',MB_OK or MB_IconError);    Close;    Exit;  end;  with NID do  begin    //cbSize为本记录的大小    cbSize:=SizeOf(TNotifyIconData);    //Wnd为本窗口句柄    Wnd:=Handle;    //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID    uID:=1;    uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;    uCallbackMessage:=WM_USER+100;    hIcon:=FIcon.Handle;    szTip:='图标1';  end;  Shell_NotifyIcon(NIM_ADD,@NID);  //在任务栏上隐藏程序  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  Shell_NotifyIcon(NIM_DELETE,@NID);  FIcon.Free; end; procedure TForm1.TrayIconMessage(var MSG: TMessage); var  Point:TPoint; begin  if MSG.LParam=WM_LBUTTONDOWN then  begin    Visible:=not Visible;    if MSG.WParam=1 then    begin      FIcon.Handle:=LoadIcon(HInstance,'Icon1');      if FIcon.Handle=0 then      begin        Application.MessageBox('无法打开图标1','找不到图标文件1',MB_OK or MB_IconError);        Close;        Exit;      end;      with NID do      begin        //cbSize为本记录的大小        cbSize:=SizeOf(TNotifyIconData);        //Wnd为本窗口句柄        Wnd:=Handle;        //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID        uID:=2;        uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;        uCallbackMessage:=WM_USER+100;        hIcon:=FIcon.Handle;        szTip:='图标2';      end;    end    else    begin      FIcon.Handle:=LoadIcon(HInstance,'Icon2');      if FIcon.Handle=0 then      begin        Application.MessageBox('无法打开图标2','找不到图标文件2',MB_OK or MB_IconError);        Close;        Exit;      end;      with NID do      begin        //cbSize为本记录的大小        cbSize:=SizeOf(TNotifyIconData);        //Wnd为本窗口句柄        Wnd:=Handle;        //uID是程序员定义的唯一标识符，如一个应用程序有多个托盘图标，则每个图标需要有唯一的uID        uID:=1;        uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;        uCallbackMessage:=WM_USER+100;        hIcon:=FIcon.Handle;        szTip:='图标1';      end;    end;    Shell_NotifyIcon(NIM_MODIFY,@NID);  end; end;

lgxyy · 2005-04-22

const  mymsg = wm_user + 1;  iid = 100;  CapStr = 'Data Tool';  private    procedure mymessage(var message: TMessage); message mymsg; var  NTID: TNotifyIconDataA; procedure TMainForm.mymessage(var message: TMessage); var  mypt: TPoint; begin  if message.lparam = wm_rbuttonup then  begin    getcursorpos(mypt);    popupmenu1.popup(mypt.X,mypt.Y);  end;  if message.LParam = wm_LBUTTONDBLCLK then  //双击左键  //if message.LParam=WM_LBUTTONDOWN then  //单击左键  begin    NTID.cbSize := SizeOf(TNotifyIconDataA);    NTID.Wnd := handle;    NTID.uID := iid;    NTID.uFlags := nif_icon + nif_tip + nif_message;    NTID.uCallbackMessage := mymsg;    NTID.hIcon := Application.Icon.Handle;    NTID.szTip := CapStr;    Shell_NotifyIconA(NIM_DELETE,@NTID);    Application.MainForm.Show;  end;  message.Result := 0; end; procedure TMainForm.HideWindows; begin                    NTID.cbSize := SizeOf(TNotifyIconDataA);  NTID.Wnd := handle;  NTID.uID := iid;  NTID.uFlags := nif_icon + nif_tip + nif_message;  NTID.uCallbackMessage := mymsg;  NTID.hIcon := Application.Icon.Handle;  NTID.szTip := CapStr;  Shell_NotifyIconA(NIM_ADD, @NTID);  Application.MainForm.Hide; end; procedure TMainForm.ShowWindows; begin  NTID.cbSize := SizeOf(TNotifyIconDataA);  NTID.Wnd := handle;  NTID.uID := iid;  NTID.uFlags := nif_icon+nif_tip+nif_message;  NTID.uCallbackMessage := mymsg;  NTID.hIcon := Application.Icon.Handle;  NTID.szTip := CapStr;  Shell_NotifyIconA(NIM_DELETE, @NTID);  Application.MainForm.Show; end; 退出时加 Shell_NotifyIconA(NIM_DELETE, @NTID); 去托盘图标

FlashDance · 2005-07-19

散分

wxc211 · 2005-07-19

接受答案了.

为什么无法改变托盘程序的状态呢？ ( 积分: 50 )

wxc211

Unregistered / Unconfirmed

wxc211

Unregistered / Unconfirmed

lgxyy

Unregistered / Unconfirmed

FlashDance

Unregistered / Unconfirmed

wxc211

Unregistered / Unconfirmed

Similar threads