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

Вниз

TTrayIcon & baloon tips   Найти похожие ветки 

← →
Василий Блаженный   (2006-09-22 11:01) [0]

Привет всем.

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


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]

---

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

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

---

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

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


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

---

← →
Igor_thief   (2006-09-22 13:29) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.031 c