как поменять иконку в трее?

← →
GIL © (2003-11-06 14:29) [0]

subj

← →
OlegGashev © (2003-11-06 14:42) [1]

Shell_NotifyIcon с NIM_MODIFY параметром.

← →
GIL © (2003-11-06 15:14) [2]

hIcon := Application.Icon.Handle;
вопрос - как туда поместить другую иконку??, у меня есть только файл с иконкой, как ее подгружать?

← →
OlegGashev © (2003-11-06 15:17) [3]

TIcon.LoadFromFile

← →
OlegGashev © (2003-11-06 15:17) [4]

TIcon.LoadFromFile

← →
GIL © (2003-11-06 15:19) [5]

не, не пойдет, у мя икона меняться будет по таймеру, я уже загрузил вторую икону в имаг, щас пробую

← →
GIL © (2003-11-06 15:23) [6]

сделал:
if nidata.hIcon=ico.Handle then nidata.hIcon:=Application.Icon.Handle else nidata.hIcon:=ico.Handle;
Shell_NotifyIcon(NIM_MODIFY, @nidata);
не работает, пишет ошибку!

← →
GIL © (2003-11-06 15:25) [7]

ico:TIcon

← →
GIL © (2003-11-06 15:31) [8]

исправил, ошибок не выдает, но иконка не меняется!

← →
AbrosimovA (2003-11-10 10:51) [9]

nidata.hIcon:=ExtractIcon(hInstance,"pirs.exe",F); Shell_NotifyIcon(NIM_MODIFY,@nidata);
где F-номер иконки, который меняй динамически в таймере

← →
AbrosimovA (2003-11-10 10:52) [10]

nidata.hIcon:=ExtractIcon(hInstance,"name.exe",F); Shell_NotifyIcon(NIM_MODIFY,@nidata);
где F-номер иконки, который меняй динамически в таймере

а как загрузить несколько иконок?, куда их цеплять?

← →
AbrosimovA (2003-11-10 11:47) [12]

> GIL © (10.11.03 11:42) [11]
> а как загрузить несколько иконок?, куда их цеплять?

Я не совсем понял оба твоих вопроса, но все иконки, которые я динамически чередовал в трее, я сложил в ресурсе программы перед компилляцией.

ты не мог бы кинуть мне на мыло пример чередования, а то я закинул все иконки в рес, но вне зависимости от номера теперь грузится толлько вторая

← →
AbrosimovA (2003-11-10 13:47) [14]

Извини просмотрел:

if F=1 then F:=0 else F:=1; nidata.hIcon:=ExtractIcon(hInstance,"name.exe",F); Shell_NotifyIcon(NIM_MODIFY,@nidata);

← →
kostik (2003-11-11 16:07) [15]

в структуре PNOTIFYICON заполнить поля:
hWnd,hIcon,cbSise
дальше просто:
function Shell_NotifyIcon(iAction:integer;pNot:pointer):integer;stdcall;external "shell32.dll" name "Shell_NotifyIconA";

procedure Form1.Button1Click(Sender:tObject);
var
pNot:tNotifyIcon;
begin
Shell_NotifyIcon(NIM_MODIFY,@pNot);
end;

как поменять иконку в трее? Найти похожие ветки