主题：任务栏状态区中如何显示应用程序
zjlqtx
[专家分：20] 发布于 2006-05-03 19:35:00
任务栏状态区中如何显示应用程序？？
[em18]
回复列表 （共2个回复）
沙发
aizaixiiii [专家分：2130] 发布于 2006-05-04 16:36:00
不怎么明白你的意思哦，
板凳
zaliang [专家分：1010] 发布于 2006-05-06 10:14:00
var
frm_mainform: Tfrm_mainform;
TrayIcon:TIcon;
TrayIconDATA:PNOTIFYICONDATA;
implementation
user
procedure tfrm_mainform.installicon;
var iconpath:string;
begin
//运行系统托盘;
iconpath:=extractfilepath(application.ExeName)+'jpg\normal.ico';//想在状态区显示的图标;
TrayIcon:= TIcon.Create;
trayicon.LoadFromFile(iconpath);
New(TrayIconDATA);
TrayIconDATA.cbSize:=SizeOf(TrayIconDATA^);
TrayIconDATA.uID:=200;
TrayIconDATA.Wnd:=Handle;
TrayIconDATA.uCallbackMessage:=MI_ICONEVENT;//M_MY_Notify;
TrayIconDATA.uFlags:=NIF_ICON+NIF_Tip+NIF_MESSAGE;
TrayIconDATA.szTip:='正在运行--....管理系统';
TrayIconDATA.hIcon:=TrayIcon.Handle;
ShellAPI.Shell_NotifyIcon(NIM_ADD,TrayIconDATA);
//============================================
我来回复
您所在位置：