![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Системный трей [D7, XP]
DimOk © (2007-08-29 09:39:00)Добрый день всем. Подскажите пожалусто как программу свернуть в системный трей.
Заранее всем благодарен.
Anatoly Podgoretsky (2007-08-29 10:08:00) [61]Ну наконец то, а то я думал, что с выходом Д2006 эти вопросы канули в небытие.
DimOk (2007-08-29 10:08:00) [62]
> abfComponents ищи
Нашел, скачал, установил. Спасибо :)
DimOk (2007-08-29 10:06:00) [63]
> NID: TNotifyIconData;
[Error] MainFormUnit.pas(535): Undeclared identifier: 'TNotifyIconData'
На этапе компиляции
DimOk (2007-08-29 09:54:00) [64]
> alshtam
Спасибо :)
alshtam (2007-08-29 09:53:00) [65]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;
DimOk (2007-08-29 09:52:00) [66]
> abfComponents ищи
А без этого....?
Человек (2007-08-29 09:50:00) [67]abfComponents ищи
DimOk (2007-08-29 09:47:00) [68]
> Я ожидал в другой ветке :) Ищи Запуздырить в трей
Оригинально...... :)
iXT (2007-08-29 09:44:00) [69]Я ожидал в другой ветке :) Ищи Запуздырить в трей