Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Экстракт иконки   Найти похожие ветки 

 
Grinder   (2004-01-08 14:55) [0]

Мастера. Скажите.
Вот код.

ExtractIconEx(PChar(progpath),0,a,tr,1);

Т.е. вытаскиваем из экзешника иконки.
У меня эта штука стоит на таймере. Т.е. через определенный момент времени этот код повторяется. Но есть проблема.
на 4934 повторении и далее постоянно tr обращается в 0. Почему? Ведь иконка существует и на повторениях до 4934 нормально берется ее handle.

Может кто скажет ответ? А то я в тупике.

Вот лог программы

[08.01.2004 13:41:05] - Cannot show tray icon. 4934
[08.01.2004 13:42:13] - Cannot show tray icon. 4934
[08.01.2004 13:43:20] - Cannot show tray icon. 4934

4934 - это значение счетчика на момент терминейта. Счетчик идет от 0.

procedure Tsystensfame.iconupdaterTimer(Sender: TObject);
var
a,tr:HIcon;
i:integer;
begin
i:=iconupdater.Tag;
iconupdater.Tag:=iconupdater.Tag+1;
ExtractIconEx(PChar(progpath),0,a,tr,1);
if tr<>0 then
tray.Icon.Handle:=tr
else
begin
Log("Cannot show tray icon. "+IntToStr(i));
Application.Terminate;
end;
tray.Refresh;
end;

В проге искользуется компонент TCoolTrayIcon (но он тут ни при чем вроде, т.к. ошибка на ExtractIconEx).

Спасибо.


 
BiN ©   (2004-01-08 15:29) [1]

а где DestroyIcon !!!!!!!@#$#$@#@%$#%$(&&)%&


 
Grinder   (2004-01-08 17:44) [2]

Спасибо. Но где он тут нужен?


 
Grinder   (2004-01-08 18:06) [3]

а спасибо
я про переменную a совсем забыл.



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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-43593
Senator
2004-02-27 10:44
2004.03.14
Запрет на нажатие клавиши


3-43401
AGN
2004-02-12 13:43
2004.03.14
DBGrid - печать


8-43704
Lizard
2003-11-14 01:43
2004.03.14
Помогите зеленому.


9-43237
Orc
2003-08-27 09:25
2004.03.14
Timer с DirecxX


3-43313
orger
2004-02-17 10:46
2004.03.14
Индексные поля