DP7LIB Четверг, 28.03.2024, 22:52
 

 
 Главная » 2013 » Май » 25 » Компонент TdpTrayIcon и MFCSAPI
13:32
Компонент TdpTrayIcon и MFCSAPI
Набросок...

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
 
 
Календарь
«  Май 2013  »
ПнВтСрЧтПтСбВс
  12345
6789101112
13141516171819
20212223242526
2728293031

Форекс
AUD/USD0.000.00
EUR/CHF0.000.00
EUR/GBP0.000.00
EUR/JPY0.000.00
EUR/USD0.000.00
GBP/CHF0.000.00
GBP/JPY0.000.00
GBP/USD0.000.00
USD/CAD0.000.00
USD/CHF0.000.00
USD/JPY0.000.00
EUR/AUD0.000.00
AUD/JPY0.000.00
EUR/CAD0.000.00
CAD/JPY0.000.00
CHF/JPY0.000.00
Данные на 00:00 мск

Друзья сайта
  • Программирование на Delphi
  • Официальный блог
  • Создать сайт
  • Мир развлечений
  • Инструкции для uCoz

  • Архив записей

    Статистика

     

    Copyright Dp7Lib © 2024
    Создать бесплатный сайт с uCoz