Скачать: CL | DM;

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

← →
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-номер иконки, который меняй динамически в таймере

---

← →
GIL ©   (2003-11-10 11:42) [11]

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

---

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

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


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

---

← →
GIL ©   (2003-11-10 12:19) [13]

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

---

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.017 c