Главная страница
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.018 c
1-43644
sachem
2004-03-02 10:23
2004.03.14
Нужно, одновременно регистрировать нажатия хотя бы 10 клавиш


1-43424
Manulo
2004-03-02 17:36
2004.03.14
Указатель в текстовом файле


4-43960
LOX
2004-01-03 16:40
2004.03.14
PWideChar


3-43249
Belkova
2004-02-13 12:03
2004.03.14
DBGrid


14-43807
Andersen
2004-01-23 13:59
2004.03.14
Локомотив - Монако