VPF::Изменение иконки в SystemTray? - Форум программистов

Guest

Дата 24.11.2004, 06:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Jureth

Дата 24.11.2004, 07:20 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 23.11.2004
Где: где-то в Западной Сибири

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

Изменяешь NotifyIconData, потом вызываешь Shell_NotifyIcon(NIM_MODIFY, ...)

Guest

Дата 24.11.2004, 09:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

var
nidata: TNotifyIconData;
begin

with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY;

hIcon := Application.Icon.Handle;// Application.Icon.;
StrPCopy(szTip,Application.Title);
end;
....................

В каком из этих свойств нужно указать путь к и иконке и какой функцией?

mntek_

Дата 24.11.2004, 09:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


var
nidata: TNotifyIconData;
begin
with nidata do 
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY;
hIcon := LoadIcon(NULL, IDI_HAND); //твоя новая иконка - смотри winapi help
StrPCopy(szTip,Application.Title);
end;
...
Shell_NotifyIcon(NIM_MODIFY, @nidata); //изменение иконки
...
end;

Guest

Дата 25.11.2004, 09:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доходит до строки:

hIcon := LoadIcon(NOT NULL,'Import1.ico');

и выдается ошибка:

Project Project1.exe raised exception class EVariantError with message 'Invalid variant type conversion'.Process stoped.Use Step or Run to continue.

Подскажите,что это... smile

_hunter

Дата 25.11.2004, 14:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

а что это за параметр такой интересный "NOT NULL" ты его где нашел?

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

Tempora mutantur, et nos mutamur in illis...

mntek_

Дата 25.11.2004, 16:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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