Иконка в systray-е
От: Stanly Россия  
Дата: 24.06.03 07:29
Оценка:
Иконка не добавляется в systray на компе с двумя мониторами, компе с одним монитором все нормально.
В чем может быть проблема?

with FIconData do
begin
cbSize:=SizeOf(FIconData);
Wnd:=Handle;
uID:=100;
uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage:= WM_USER+1;
ilStatus.GetIcon(2, Application.Icon);
hIcon:= Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
hMenuHandle:= GetSystemMenu(Application.Handle, false);
for i:= 0 to GetMenuItemCount(hMenuHandle) — 1 do
DeleteMenu(hMenuHandle, i, mf_ByPosition);
DeleteMenu(hMenuHandle, SC_Close, mf_ByCommand);
DeleteMenu(hMenuHandle, SC_Minimize, mf_ByCommand);
Shell_NotifyIcon(NIM_ADD, @FIconData);
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.