dephi 系统以托盘形式运行

我用dephi来实现教师机和学生机功能
现在希望学生机上的程序能够以托盘形式运行
不知道代码如何实现希望大哥大姐们帮忙下
在线等
定给分

解决方案 »

  1.   

    去找一个叫 CoolTrayIcon 的第三方控件，可以直接实现这个功能
      

  2.   

    procedure TMainForm.FormCreate(Sender: TObject);
    begin
      with TrayIconData do
      begin
        cbSize := SizeOf(TrayIconData);
        Wnd := Handle;
        uID := 0;
        uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
        uCallbackMessage := WM_ICONTRAY;
        hIcon := Application.Icon.Handle;
        StrPCopy(szTip, Application.Title);
      end;  Shell_NotifyIcon(NIM_ADD, @TrayIconData);  ShowWindow(Application.Handle, SW_HIDE);
      SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
    end;
      

  3.   

    楼上已经发代码了
    不过我使用CoolTrayIcon挺简单与方便的
      

  4.   

    使用第三方控件吧， CoolTrayIcon 很好用，盒子上一搜就有
      

  5.   

    CoolTrayIcon或者用API自己写吧，那个TrayIcon我用着不怎么好用，2009里面老是不能把窗体Show到前面，但API的就行，不知道为什么……
      

  6.   

    Raize控件包很ＯＫ啊，大富翁之杀人越货，居家旅行必备！
      

  7.   


    http://download.csdn.net/down/136462/chenxh这里是下载地址不过这个版本没有Demo,楼主可留个邮箱,发给你
      

  8.   

    CoolTrayIcon 的第三方控件，可以直接实现这个功能