Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выбор окна браузера в панели задач 
V
    Опции темы
s2004
  Дата 8.10.2012, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет
Вопрос возможно был, но не нашёл просто отражение версии или там название программы на значке в панели задач одно - это есть, но мне надо так, как наводишь курсор на iexplorer например и подсвечивается различное содержимое страниц, не надо гадать при открытие нескольких окон, какое окно нужно. Желательно, что бы и миниатюру страницы отражало.

надо, что бы было примерно так user posted image

Это сообщение отредактировал(а) s2004 - 9.10.2012, 20:02
PM MAIL   Вверх
MetalFan
Дата 8.10.2012, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

M
MetalFan		что за ... в заголовке темы? или поправь на читаемое или в помойку полетит.


Это сообщение отредактировал(а) MetalFan - 8.10.2012, 22:48


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
s2004
Дата 10.10.2012, 21:50 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет
Код

 EmbeddedWB1.SetFocusToDoc;
 Form1.Caption:=('Net' + '    '+'Site Name:  '+(EmbeddedWB1.LocationURL));

строка кода которая отражает название (содержимое страницы) страницы в верхней самой панели браузера мне надо тоже самое практически, тоесть когда наводим курсор мыши на значок браузера в панели задач (и при этом браузер имеет открытыми несколько окон, необходим выбор нужного окна т.к. свойства caption выдают только название программы ) происходит подсветка в области этого курсора с отражением содержимого выбираемого окна и желательно с миниатюрой страницы.



Это сообщение отредактировал(а) s2004 - 11.10.2012, 17:47
PM MAIL   Вверх
MetalFan
Дата 10.10.2012, 22:15 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
моя твоя не понимай... и, похоже, что твоя моя тоже...
или давай нормальное название темы, или тема будет удалена.
p.s. какой-то поток сознания в последнем сообщении... хоть бы знаки препинания поставил...
p.p.s если не получается поменять название темы - пришли более вменяемое название в личку или напиши здесь - переименую.

Это сообщение отредактировал(а) MetalFan - 11.10.2012, 17:58


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
MetalFan
Дата 11.10.2012, 18:06 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
По теме: ищи инфу по ITaskbarList (в частности ITaskbarList3)
Delphi и панель задач (taskbar) в Windows 7. В общем гугл в руки!

Это сообщение отредактировал(а) MetalFan - 11.10.2012, 18:07


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Чучмек
Дата 16.10.2012, 08:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41
TaskBarList_Unit.pas
Код

unit TaskBarList_Unit;

interface
 uses windows;
const
  CLSID_TaskbarList: TGUID = '{56FDF344-FD6D-11d0-958A-006097C9A090}';

type
  ITaskbarList = interface (IUnknown)
   ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
    function HrInit:Hresult; stdcall;
    function AddTab(hwnd: Cardinal):Hresult; stdcall;
    function DeleteTab(hwnd: Cardinal):Hresult; stdcall;
    function ActivateTab(hwnd: Cardinal):Hresult; stdcall;
    function SetActiveAlt(hwnd: Cardinal):Hresult; stdcall;
  end;

 ITaskbarList2 = interface (ITaskbarList)
   ['{602D4995-B13A-429B-A66E-1935E44F4317}']
    function MarkFullscreenWindow(hwnd:HWND;fullscreen:BOOL):HRESULT;stdcall;
 end;



THUMBBUTTONMASK =(
  THB_BITMAP = $0001,
  THB_ICON = $0002,
  THB_TOOLTIP = $0004,
  THB_FLAGS = $0008 );

THUMBBUTTONFLAGS =(
  THBF_ENABLED = $0000,
  THBF_DISABLED = $0001,
  THBF_DISMISSONCLICK = $0002,
  THBF_NOBACKGROUND = $0004,
  THBF_HIDDEN = $0008,
  THBF_NONINTERACTIVE = $0010);

LPTHUMBBUTTON=^THUMBBUTTON;
THUMBBUTTON = record
   dwMask:THUMBBUTTONMASK;
   iId:UINT;
   iBitmap:UINT;
   hIcon:HICON;
   szTip:array[0..259]of WCHAR;
   dwFlags:THUMBBUTTONFLAGS;
 end;

 ULONGLONG=uint64;
 HIMAGELIST=cardinal;
 TBPFLAG = (TBPF_NOPROGRESS = $0000,
            TBPF_INDETERMINATE = $0001,
            TBPF_NORMAL = $0002,
            TBPF_ERROR = $0004,
            TBPF_PAUSED = $0008);

 ITaskbarList3 = interface (ITaskbarList2)
   ['{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}']
    function SetProgressValue(hwnd:HWND;ullCompleted:ULONGLONG;ullTotal:ULONGLONG):HRESULT;stdcall;
    function SetProgressState(hwnd:HWND;tbpFlags:TBPFLAG):Hresult; stdcall;
    function RegisterTab(hwndTab:HWND;hwndMDI:HWND):Hresult; stdcall;
    function UnregisterTab(hwndTab:HWND):Hresult; stdcall;
    function SetTabOrder(hwndTab:HWND;hwndInsertBefore:HWND):Hresult; stdcall;
    function SetTabActive(hwndTab:HWND;hwndMDI:HWND;dwReserved:DWORD):Hresult; stdcall;
    function ThumbBarAddButtons(hwnd:HWND;cButtons:UINT;pButton:LPTHUMBBUTTON):Hresult; stdcall;
    function ThumbBarUpdateButtons(hwnd:HWND;cButtons:UINT;pButton:LPTHUMBBUTTON):Hresult; stdcall;
    function ThumbBarSetImageList(hwnd:HWND;himl:HIMAGELIST):Hresult; stdcall;
    function SetOverlayIcon(hwnd:HWND;hIcon:HICON;pszDescription:LPCWSTR):Hresult; stdcall;
    function SetThumbnailTooltip(hwnd:HWND;pszTip:LPCWSTR):Hresult; stdcall;
    function SetThumbnailClip(hwnd:HWND;prcClip:PRECT):Hresult; stdcall;
  end;


 STPFLAG=(
  STPF_NONE = $0000,
  STPF_USEAPPTHUMBNAILALWAYS = $0001,
  STPF_USEAPPTHUMBNAILWHENACTIVE = $0002,
  STPF_USEAPPPEEKALWAYS = $0004,
  STPF_USEAPPPEEKWHENACTIVE = $0008);


 ITaskbarList4 = interface (ITaskbarList3)
   ['{c43dc798-95d1-4bea-9030-bb99e2983a1a}']
    function SetTabProperties(hwndTab:HWND;stpFlags:STPFLAG):Hresult; stdcall;
  end;


implementation

end.
 


Код

uses ...,comobj,TaskBarList_Unit;
...
...
var i:ITaskbarList3;
...
begin 
i:=CreateComObject(CLSID_TaskbarList) as ITaskbarList3;
i.HrInit;
... 

А дальше гугли методы ITaskbarList3.


Это сообщение отредактировал(а) Чучмек - 17.10.2012, 09:34


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
s2004
Дата 17.10.2012, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет
смотрим http://forum.vingrad.ru/forum/topic-357029...p/view-all.html
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0471 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.