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

Вниз

Проблемы с System Area (Shell_NotifyIcon)   Найти похожие ветки 

← →
Витёк ©   (2002-09-04 23:00) [0]

Пытаемся поместить иконку в System Area, место под иконку выделяется, но вот до появления самой иконки дело не доходит.


procedure TForm1.FormCreate(Sender: TObject);
begin
fIcon := TIcon.Create;
fIcon.Assign(Application.Icon);
FillChar(fData, SizeOf(fData), 0);
fData.cbSize := SizeOf(fData);
fData.Wnd := Form1.Handle;
fData.hIcon := Icon.Handle;
StrPLCopy(fData.szTip, Application.Title,
SizeOf(fData.szTip)-1);
fData.uFlags := Nif_Icon or Nif_Message;
if Application.Title <> "" then
fData.uFlags := fData.uFlags or Nif_Tip;
Shell_NotifyIcon(nim_add,@fdata)
end;


---

← →
Иван Шихалев ©   (2002-09-05 14:20) [1]

> fData.hIcon := Icon.Handle;

Где инициализируется Icon?

---

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

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

Наверх

Память: 0.46 MB
Время: 0.011 c