Проект DP7LIB закрыт. Пора идти дальше...

uses
dpSysTray, dpLib;

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TNotifyStructData2;
R: TRect;
begin
Memo1.Lines.Clear;
if Not GetNotifyStructData(GetToolBarWnd, SpinEdit1.Value, @Data, SizeOf(Data)) then
Memo1.Lines.Add('Не удалось получить данные, возможно доступ' +
' запрещён администратором !!!')
else
begin
Memo1.Lines.Add(Format('Wnd: %d', [Data.hWnd]));
Memo1.Lines.Add(Format('ID: %d', [Data.uID]));
Memo1.Lines.Add(Format('CallbackMessage: %d', [Data.uCallbackMessage]));
Memo1.Lines.Add(Format('State: %d', [Data.dwState]));
Memo1.Lines.Add(Format('Version: %d', [Data.uVersion]));
Image1.Picture.Icon.Handle := Data.hIcon;
end;
if Not GetNotifyIconRect(GetToolBarWnd, SpinEdit1.Value, @R) then
Memo1.Lines.Add('Не получилось узнать координаты, возможно' +
' значок в скрытом состоянии !!!')
else
begin
MapWindowPoints(GetToolBarWnd, HWND_DESKTOP, R, 2);
Memo1.Lines.Add(Format('Rect: [Left: %d; Top: %d; Right: %d; Bottom: %d]',
[R.Left, R.Top, R.Right, R.Bottom]));
end;
end;

Что хочу сказать. Сегодня мне удалось обойти очередные грабли Microsoft
в Windows Vista, 7 и теперь для получения координат значка в области
уведомлений не нужны особые разрешения администратора. В первых версиях
Vista запрета не было, но потом разработчики внесли изменения. Также
они разделили область уведомлений на системную и пользовательскую. Что
также повлияло на пересмотр написаного. Но функции пока нормально
работают в XP и в начальных версиях Vista.

Решение:

Ждать новую mfcs32.dll
Ждать dp7lib 4.0

Ошибки и как их обойти:

------------------------------

TrayIcon.Images := ImageList1;
TrayIcon.Images := ImageList2; FImagesLink - Потеря памяти

procedure TdpCustomTrayIcon.SetImages(Value: TCustomImageList);
begin
if FImages <> Value then
begin
if Value <> nil then
begin
FImagesLink := TChangeLink.Create;
FImagesLink.OnChange := ImagesChange;
Value.RegisterChanges(FImagesLink);
FImages := Value;
end
else
begin 2х
FImagesLink.Free;
FImagesLink := nil;
FImages := Value;
end;
BadgeImageList;
end;
end;

Решение:

TrayIcon.Images := ImageList1;
TrayIcon.Images := nil;
TrayIcon.Images := ImageList2;

------------------------------

TrayIcon.Focusing ??? - Когда думаешь на двух языках, можно
и забыть что-то описать...

Решение:

TrayIcon.Perform(NI_SETFOCUS, 0, 0);

------------------------------

Пишите...

На днях сдавал отчёт по производственной практике в институт.
Задание от предприятия было написать программу для
создания визиток стандарта ISO. Написание программы я разбил
на несколько частей: инспектор объектов, палитра компонентов и
форма для дизайна. Ушло на всё-про-всё 26 дней. Чем-то
напоминает Delphi, но не в этом суть. Мнение преподавателя:
печать есть, предварительный просмотр есть, сохранение в
файл есть, экспорт в другие форматы есть, к чему бы
придраться. Эврика ? Свойства и значения в инспекторе объектов
на английском языке. Да, номер ещё тот. Ему и не вдомёк, что
их нельзя переименовать. Ведь по сути, инспектор объектов
отображает то, что описано в разделе published класса.
Попробуй доказать, лопнишь... С мнением какая плохенькая и не
кому ненужная у вас программа ты уходишь, но счастья тебе не
занимать, в зачётке стоит сдал.

О преподе: Кандидат экономических наук.