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

Budy

Дата 6.6.2005, 11:09 (ссылка)

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

Загрузка ...

Опытный

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

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

:Приветствую
Делаю себе иконку в систрей, и попутно возникают вопросы:
Создаю во как:

Код


var
  Form1: TForm1;
  Nid:TNotifyIconData;
  
procedure TForm1.FormCreate(Sender: TObject);
begin
  with nid do begin
   cbSize:=SizeOf(TNotifyIconData);
   Wnd:=Form1.Handle;
   uID:=1;
   uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallbackMessage:=WM_USER+100;
   hIcon:=Application.Icon.Handle;
   StrPCopy(szTip,Caption);
  end;
  Shell_NotifyIcon(NIM_ADD,@nid); 
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveOptions;
  with nid do begin
    cbSize:=SizeOf(TNotifyIconData);
    Wnd:=Form1.Handle;
    uID:=1;
    uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage:=WM_USER+100;
    hIcon:=Application.Icon.Handle;
    StrPCopy(szTip,Caption);
  end;
  Shell_NotifyIcon(NIM_DELETE,@nid);
end;

А как мона ее картинку изменить? ну например взять из TImageList (желательно)

И еще, как мона убрать свое окно из TaskBar'а? (Вот как винампа делает)

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

~FoX~

Дата 6.6.2005, 12:10 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Изменить:

Код


Shell_NotifyIcon(Nim_Modify,@Nid);

Скрыть:

Код


Procedure TForm1.ControlWindow(Var Msg:TMessage);
var
  ico: TIcon;
Begin
  ico := Application.Icon;
  IF Msg.WParam=SC_MINIMIZE then
    Begin
      Ic(1,ico); // Добавляем значок в трей
      ShowWindow(Handle, SW_HIDE); // Скрываем программу
      ShowWindow(Application.Handle, SW_HIDE);
    End
  else
    inherited;
End;

Добавлено @ 12:14
Выдрать из ImageList

Код


var
  i: TIcon;
begin
  try
    i := TIcon.Create;
    ImageList1.GetIcon(2, i);
  finally
    i.Free;
  end;
end;

Добавлено @ 12:15
А вообще в ФАКе есть пару примеров по работе с систреем.

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

…множественность никогда не следует полагать без необходимости…

Budy

Дата 6.6.2005, 13:16 (ссылка)

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

Загрузка ...

Опытный

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

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

~FoX~, сэнк. в ФАКе немного не то (ЗЫ.или я не все видел)

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 6.6.2005, 13:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Меняю иконку:

Код


with Nid do
    try
      Ic:=TIcon.Create;
      SysTray.GetIcon(0,Ic);
      hIcon:=Ic.Handle;
    finally
      Ic.Free;
    end;
  Shell_NotifyIcon(NIM_MODIFY,@Nid);

Не канает. Остается старая
И со скрытием: я имел ввиду окно то остается видным, а его "эмблема" прячется с таскбара.

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Quadr0

Дата 6.6.2005, 15:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:09

Quadr0

Дата 6.6.2005, 15:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:09

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