救救菜鸟~请问怎样在Delghi6中将所做的程序隐藏到工具栏中啊

Question

请问怎样在Delghi6中将所做的程序隐藏到工具栏中啊？兄弟门就靠你们拉~~~国家的未来才有希望哦谢谢；拉

Answer 1

是指隐藏到任务栏吧！
自己搜索一下吧！ CSDN上有很多帖子回答这个问题的，也不难想简单就用控件得了，不好意思，好久没用了，忘记了控件的名字了，去深度历险找吧
http://www.vclxx.org

Answer 2

你到delphiboy.com上找找看吧，我好象在那看到过这个问题的文章

Answer 3

呵呵我也知道、CSDN上很全但小菜我对于怎么找还是一头雾水~~~呵呵就交教教小的我吧~~或帮帮忙查一查`~~~~~

Answer 4

http://www.delphiboy.com/cgi-bin/doc/datacontent.php?no=367
你看看这个吧，我是看不懂，我很菜的。

Answer 5

一个例子const MY_MESSAGE = WM_USER + 100;procedure TForm1.OnIconNotify(var Message: TMessage);
var
  busy:boolean;
begin
  busy:=false;
  if not Busy then
    begin
      Busy:=true;
      if Message.LParam=WM_LBUTTONDBLCLK then
        begin
        if Application.MessageBox('你确定要退出该程序吗？','退出',MB_YESNO)=IDYES then
          Close
        else
          form1.WindowState:=wsNormal;
        end;
      Busy := false;
    end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  nid:TNotifyIconData;
begin
  nid.cbSize := sizeof(nid); // nid变量的字节数
  nid.cbSize := sizeof(nid); // nid变量的字节数
  nid.uID:=1; //内部标识，与加入小图标时的数一致
  nid.Wnd := Handle; //主窗口句柄
  Shell_NotifyIcon(NIM_DELETE,@nid); //去掉小图标
  Shell_NotifyIcon(NIM_DELETE,@nid); //去掉小图标
end;procedure TForm1.FormPaint(Sender: TObject);
begin
  form1.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  nid:TNotifyIconData;begin
  nid.cbSize:=sizeof(nid); // nid变量的字节数
  nid.Wnd:=Handle; // 主窗口句柄
  nid.uID:=1; // 内部标识，可设为任意数
  nid.hIcon:=Application.Icon.Handle; // 要加入的图标句柄，可任意指?
  nid.hIcon:=Application.Icon.Handle; // 要加入的图标句柄，可任意指?
  nid.szTip:='表格管理过程控制信息监控'; // 提示字符串
  nid.uCallbackMessage:=MY_MESSAGE; // 回调函数消息
  nid.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有?
  if not Shell_NotifyIcon(NIM_ADD,@nid) then
    begin
      ShowMessage('Failed!');
      Application.Terminate;
    end;
  {将程序的窗口样式设为TOOL窗口，可避免在任务条上出现}
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);