VPF::Пропадает иконка из трея - Форум программистов

mspuz

Дата 8.5.2007, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

Прячу программу, а втрее помещаю иконку. Но так получается, что иконка в некоторых случаях не появляется в трее smile

. А в программе зашита защита на запуск только одной версии. В результате пользователь не может запустить новую версию, так как в процессах висит "невидимая" программа. Можно ли проверять, что при скрытии программы иконка на месте?

ama_kid

Дата 8.5.2007, 19:30 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

Зачем бороться со следствием, если бороться надо с причиной? Лучше проверь код. При правильном кодировании иконка в трее появляется всегда (хотя она может исчезнуть в определенном случае - с этим бороться надо так)

--------------------

самурай без меча подобен самураю с мечом, но только без меча

valentos

Дата 8.5.2007, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

mspuz , у меня кде-то валялся компонент для сворачивания проги в трей!
Могу скинуть, если найду?!

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

ama_kid

Дата 8.5.2007, 22:19 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

valentos
А зачем он нужен? Чтобы чужие баги ловить? smile

Код, который помещает/удаляет иконку в трей - занимает всего-то 25-30 строчек от силы:

Код

function SetIconInTray: boolean;
var
 nid:PNOTIFYICONDATA;
begin
 new(nid);
 nid.cbSize := sizeof(nid);
 nid.szTip:='Мой Хинт';
 nid.hIcon := Application.Icon.Handle;
 nid.Wnd := fmMain.Handle;
 nid.uID := id_MyIcon;
 nid.uFlags := NIF_ICON or NIF_TIP;// or NIF_MESSAGE;
// nid.uCallbackMessage := WM_MyMessTray;    // Нужно, если требуется отлавливать сообщения от иконки
 Result:= Shell_NotifyIcon(NIM_ADD, nid);
end;

function DeleteIconFromTray: boolean;
var
 nid:PNOTIFYICONDATA;
begin
 new(nid);
 nid.cbSize := sizeof(nid);
 nid.Wnd := fmMain.Handle;
 nid.uID := id_MyIcon;
 Result:= Shell_NotifyIcon(NIM_DELETE, nid);
end;

--------------------

самурай без меча подобен самураю с мечом, но только без меча

dumb

Дата 9.5.2007, 00:52 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158

Цитата(mspuz @ 8.5.2007, 17:17

)

Но так получается, что иконка в некоторых случаях не появляется в трее

момент для установки иконки в трей неправильно выбрал. если не мудрствовать, то код добавления поставь на таймер с Interval=1.

Добавлено через 4 минуты и 18 секунд
эм. забыл добавить: после срабатывания таймера отключи его(в Timer1Timer сделать Interval:=0)...

valentos

Дата 9.5.2007, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

ama_kid , кому-как, я например не вижу смысла писать 30 строк исли мона кинуть на форму компонент и спокойно пойти попить чаю!

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

Yanis

Дата 9.5.2007, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Кто хотел узнать почему про нас сишники байки травят? smile

Цитата(valentos @ 9.5.2007, 21:08

)

ama_kid , кому-как, я например не вижу смысла писать 30 строк исли мона кинуть на форму компонент и спокойно пойти попить чаю!

Это сообщение отредактировал(а) Yanis - 9.5.2007, 20:53

--------------------

*щёлк*

ama_kid

Дата 9.5.2007, 20:58 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

Цитата(valentos @ 9.5.2007, 20:08

)

Ну да, сходи, попей чаю, чтобы потом с новыми силами разгребать чужой код размером в сотни строк в поисках - почему же

Цитата(mspuz @ 8.5.2007, 17:17

)

иконка в некоторых случаях не появляется в трее

--------------------

самурай без меча подобен самураю с мечом, но только без меча

sw04

Дата 11.5.2007, 01:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 22.1.2007
Где: Ufa

Репутация: 2
Всего: 18

Не появляется потому что не срабатывает функция добавления иконки в трее.
Проверь код. Могу подсобить, аська в профиле, обращайся.

--------------------

<удалено администрацией>

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »