求教！！！请问如何让应用程序最小化时显示在任务栏右边？

Question

csdn里很多这样的问题，你可以先看一下，我有原程序你要的可以写信给我
[email protected]

Answer 1

我有一个控件，带例子
[email protected]

Answer 2

Rxlib中有这种控件,可实现如超级解霸伺服器的效果.

Answer 3

  private
    procedure WMSysCommand(var Message: TMessage);
    message WM_SYSCOMMAND;
  public
    procedure WndProc(var Msg: TMessage); override;procedure TFormfychatmain.WMSysCommand(var Message:TMessage);
begin
  if Message.WParam = SC_ICON then  Formmain.Visible:=False
  //如果用户最小化窗口则将窗口隐藏
  else  //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
     DefWindowProc(Formfychatmain.Handle,Message.Msg,Message.WParam,Message.LParam);
end;添加icon:
//填充NotifyIconData记录型变量nd
  hs:=loadicon(hInstance,'mainIcon');
  nd.cbSize := sizeof(NotifyIconData);
  nd.Wnd := handle;
  nd.uID := 0;
  nd.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  nd.uCallbackMessage := WM_TRAYNOTIFY;
  nd.hIcon := hs;
//在任务栏状态区添加图标
  Shell_NotifyIcon(NIM_ADD, @nd);