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

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

Где взять компонент TrayIcon для Delphi7 [D7, XP]

Mozaika_81 ©   (2006-05-22 21:24:00) 

Добрый вечер, Мастера!

У меня такая вот проблемка: У меня на диске записаны старые компоненты для Delphi 5-6. Тут необхождимо прогу в трей спрятать, а компоненты чета не работают. Наверное не совместимость?
Мастера, пожалуйста дайте ссылочку или скиньте на мыло компонент для Delphi 7.

---

Konnor   (2006-05-23 11:33:00) [1]

function TaskBarAddIcon(hWindow: THandle; ID: Cardinal;
 ICON: hicon; CallbackMessage: Cardinal; Tip: string): Boolean;
var
 NID: TNotifyIconData;
begin
 FillChar(NID, SizeOf(TNotifyIconData), 0);
 with NID do
 begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := hWindow;
   uID := ID;
   uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
   uCallbackMessage := CallbackMessage;
   hIcon := Icon;
   if Length(Tip) > 63 then
     SetLength(Tip, 63);
   StrPCopy(szTip, Tip);
 end;
 Result := Shell_NotifyIcon(NIM_ADD, @NID);
end;И нафиг все кривые компоненты...
А если нужен именно компонент, воспользуйся JEDI... Там все есть

---

Amoeba   (2006-05-23 10:43:00) [2]

http://www.torry.net

---

Turbid   (2006-05-23 01:18:00) [3]

uses
 ShellApi;

---

TUser   (2006-05-22 21:37:00) [4]

www.yandex.ru

---

Наверх