Набросок...
function
TdpCustomTrayIcon.GetRect(
var Rect: TRect):
Boolean;
var hBar32:
HWND;
Id:
TNotifyIconIdentifier;
begin
Result := False;
if FShowOnce
then
begin hBar32
:= GetToolBarWnd;
if hBar32 <> 0
then
begin
Id.cbSize :=
SizeOf(TNotifyIconIdentifier);
Id.uID := Perform(NI_PIDEL, 0,
0);
Id.hWnd
:= FHandle;
{$IFDEF
CPUX86}
if IsWow64(GetCurrentProcess)
then
Result := GetNativeShtNotifyIconRect(hBar32, Id,
Rect)
else
{$ENDIF}
Result := GetShtNotifyIconRect(hBar32, Id,
Rect);
end;
end;
end;