Delphi服务程序怎么显示窗口

[hncdzyl]

RT~~服务启动后,在托盘显示怎么做的?

[babydog01]

有Trayicons控件来实现，packcn里面就有.

[山东蓝鸟贵薪]

DELPHI 方面有“托盘”的实例呀，你找找

[sundayzhao]

有一个托盘的控件

[sforiz]

http://topic.csdn.net/t/20020516/17/728049.html
看一下这个贴子，学习一下吧

[rainychan2009]

use
ShellApi;
TNotifyIcon

[曼尼叔叔]

//安装托盘图标
procedure InstallTrayIcon;
begin
//初始化系统托盘图标
TrayIcon := TIcon.Create;
TrayIcon.Handle := Self.Icon.Handle;

with NotifyIcon do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Handle; //指向当前窗体的句柄
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:=WM_NOTIFY;
hIcon := TrayIcon.Handle;
szTip := 'Super Doctor PACS DICOM Server';
end;
Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
end;

//卸载托盘
procedure UninstallTrayIcon;
begin
Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
TrayIcon.Free;
end;

[haitao]

服务是一个程序，托盘是另一个程序
服务是无界面、运行在另一个会话的
但是服务和托盘可以进行进程间通信以交互、控制