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

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

TTrayIcon & baloon tips [D7, WinXP]

Василий Блаженный ©   (2006-09-22 11:01:00) 

Привет всем.

Есть такой код:


procedure TSysTrayForm.CreateTrayIconFrom(n: Integer; ic: hicon;
lpTitle: String; awnd: Integer);
var nidata : TNotifyIconData;
begin
with nidata do
 begin
  Randomize;
  cbSize := SizeOf(TNotifyIconData);
  Wnd := awnd;
  uID := n;
  uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  uCallBackMessage := WM_MYICONNOTIFY;
  hIcon := ic;
  StrPCopy(szTip, lpTitle);
 end;
 Shell_NotifyIcon(NIM_ADD, @nidata);
end;


и такой код:

function CreateTrayIcon(const wndProc:TWndMethod;Icon:HICON;Title:string):TNewNotifyIconData;
var _IconWnd:HWND;
begin
{$WARN SYMBOL_DEPRECATED OFF}
_IconWnd:=AllocateHWND(wndProc);
{$WARN SYMBOL_DEPRECATED ON}
ShowWindow(_IconWnd,SW_HIDE);
with Result do
 begin
  cbSize:=SizeOf(TNewNotifyIconData);
  Wnd:=_IconWnd;
  uID:=$DEDB;
  dwInfoFlags:=NIIF_INFO;
  uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
  hIcon:=Icon;
  uCallbackMessage:=WM_ICONMSG;
  StrCopy(szTip,PChar(Title));
  DUMMYUNIONNAME.uTimeout:=2000;
 end;
Shell_NotifyIcon(NIM_Add,@Result);
end;

Первый создаёт иконку, второй - иконку с балуном.

[b] Как бы их объединить типа опции в avast! "Объединить иконки VDRB и сканера"?[/b]

---

Igor_thief   (2006-09-22 13:29:00) [1]

Чего конкретно надо сделать? Второй код не полный!

---

Орион   (2006-09-22 13:05:00) [2]

> [1] Василий Блаженный   (22.09.06 12:36)


TCoolTrayIcon
и да поможет тебе Великий Конструктор в твоем рвении к запуздыриванию...

---

Василий Блаженный   (2006-09-22 12:36:00) [3]

Блин. Никто не знает?:(

---

Наверх