| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Иконка Программы [D7]

Neket ©   (2007-01-04 15:27:00) 

Подскажите как использовать для Трея иконку программы т.е. я подгружаю тконку для Трея таким образом:

procedure TForm1.FormCreate(Sender: TObject);

var
 tray: TNotifyIconData;
 Ic: TIcon;
begin
 Ic := TIcon.Create;
 Ic.LoadFromFile('Icon1.ico'); // и вот здесь необходимо сделать так чтобы загрузилась иконка самой программы а не из другого файла.
 with tray do begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Form1.Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_NOTIFYTRAYICON;
   hIcon := Ic.Handle;
   szTip := ('Баян!!!!');
 end;
 Shell_NotifyIcon(NIM_ADD, Addr(tray));

 Ic.Destroy;
end;

Просто неохото таскать отдельно за exe-шником еще и файл иконки.

---

Neket   (2007-01-04 15:36:00) [1]

Спасибо за помощь

---

SergGG   (2007-01-04 15:33:00) [2]

ic=Application.Icon

---

Calibr   (2007-01-04 15:30:00) [3]

Очень просто!

procedure TForm1.FormCreate(Sender: TObject);
var
tray: TNotifyIconData;
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.LoadFromFile('Icon1.ico'); // и вот здесь необходимо сделать так чтобы загрузилась иконка самой программы а не из другого файла.
with tray do begin
  cbSize := SizeOf(TNotifyIconData);
  Wnd := Form1.Handle;
  uID := 1;
  uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  uCallBackMessage := WM_NOTIFYTRAYICON;
  hIcon := Application.Icon.Handle;
  szTip := ('Баян!!!!');
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));

Ic.Destroy;
end;

---

Наверх