M
macrolen
Unregistered / Unconfirmed
GUEST, unregistred user!
程序时纯API写的,没有用到VCL。48x48和16x16的图标放在了资源文件里MyIcon.rcICON16 ICON 1616.icoMAINICON ICON 4848.ico这样加载托盘图标:hIcon := LoadIcon(hInstance, 'ICON1616');但是程序本身的图标也是用的16x16像素的了,如何让程序和托盘使用不同的图标?如何单独指定程序和托盘的图标呢?我的代码: Inst := hInstance; with WinClass do begin style := CS_CLASSDC or CS_PARENTDC; lpfnWndProc := @WindowProc; hInstance := Inst; hbrBackground := color_btnface + 1; lpszClassname := AppName; hCursor := LoadCursor(0, IDC_ARROW); end; RegisterClass(WinClass); //创建窗体 Handle := CreateWindowEx(WS_EX_WINDOWEDGE, AppName, '123', WS_SIZEBOX {or WS_VISIBLE or WS_CAPTION or WS_SYSMENU} , 283, 238, 325, 65, 0, 0, Inst, nil); UpdateWindow(Handle); tid.cbSize := sizeof(tid); tid.Wnd := handle; tid.uID := 1; tid.uFlags := nif_Message or nif_Icon or nif_Tip; tid.uCallBackMessage := wm_User; tid.hIcon := LoadIcon(hInstance, 'ICON16');//这里指定了托盘和程序图标都是用一样的了 lstrcpy(tid.szTip, AppName); Shell_NotifyIcon(nim_Add, @tid);