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;
Просмотров: 1070 |
Добавил: Иван
| Теги: TdpTrayIcon