Форум: "WinAPI";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
ВнизКак поместить иконку приложения в 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c