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

Вниз

Как поместить иконку приложения в IconTray   Найти похожие ветки 

← →
АндрейС   (2002-10-04 13:47) [0]

Как поместить иконку приложения в IconTray
Проблема в том, что в D3 нет (или я не нашел) типа "TNOTIFYICONDATA"

---

← →
Cobalt ©   (2002-10-04 16:35) [1]

Смотри модуль Shellapi.pas

---

← →
Reals ©   (2002-10-07 12:15) [2]

function TaskBarIcon( hWindow : THandle; ID : Cardinal; ICON : hicon; CallbackMessage : Cardinal; Tip : String; Typ: Integer ) : Boolean;
var NID : TNotifyIconData;
begin
FillChar( NID, SizeOf( TNotifyIconData ), 0 );

//Удалить иконку из Tray
if Typ=0 then begin
with NID do begin
cbSize := SizeOf( TNotifyIconData );
Wnd := hWindow;
uID := ID;
end;
Result := Shell_NotifyIcon( NIM_DELETE, @NID );
end else

//Добавить иконку в Tray
if Typ=1 then begin
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 else

//Изменить иконку в Tray
if Typ=2 then begin
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_MODIFY, @NID );
end else Result := False;
end;



Вызов функции:

TaskBarIcon(Handle, 0, LoadIcon(hInst,"MAINICON"), 0,"Sample",1);

---

← →
АндрейС   (2002-10-09 17:06) [3]

ОГРОМНОЕ СПАСИБО!!!

---

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

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

Наверх

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