Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.21;
Скачать: CL | DM;

Вниз

Иконка Программы   Найти похожие ветки 

 
Neket   (2007-01-04 15:27) [0]

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

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-шником еще и файл иконки.


 
Calibr ©   (2007-01-04 15:30) [1]

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

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;


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

ic=Application.Icon


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.01.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1167458583
FIL-23
2006-12-30 09:03
2007.01.21
можно ли Delphi менять "стиль" кнопок


15-1167190139
Slider007
2006-12-27 06:28
2007.01.21
С днем рождения ! 27 декабря


15-1167064904
kaZaNoVa
2006-12-25 19:41
2007.01.21
Религия как модель счастливой жизни человека


6-1156174525
RedLineLab
2006-08-21 19:35
2007.01.21
Скорость соединения dial-up


2-1168079099
Туплю
2007-01-06 13:24
2007.01.21
Как получить старший бит числа?