Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Отображение веб-страницы

Автор: sniron 6.7.2004, 22:40

Как включить/проверить отображение веб-страницы на рабочем столе

Автор: Vex 7.7.2004, 23:30

Если находишь окно с кэпшеном "FolderView" и классом "SysListView32" то рабочий стол отображается НЕ как веб страница, если не находишь данное окно, то рабочий стол отображается как web-страница, рабочий стол в этом случае не имеет заголовка и принадлежит к классу "Internet Explorer_Server"

Для XP, для других осей не знаю.

ИМХО, точно не знаю, т.к. не проверял.

Все вышеописаное неправильно

Вот код из DRKB, который работает:

Код


function IsActiveDeskTopOn: Boolean;  
var  
  h: hWnd;  
begin  
  h := FindWindow('Progman', nil);  
  h := FindWindowEx(h, 0,  
        'SHELLDLL_DefView', nil);  
  h := FindWindowEx(h, 0,  
       'Internet Explorer_Server', nil);  
  Result := h <> 0;  
end;

Кто нибудь может объяснить, почему не ищеться окно?
FindWindow('Internet Explorer_Server',nil);
хотя оно есть...

Автор: p0s0l 9.7.2004, 14:44

Цитата

Кто нибудь может объяснить, почему не ищеться окно?
FindWindow('Internet Explorer_Server',nil);
хотя оно есть...

FindWindow ищет только окна "первого уровня", т.е. их детей она не просматривает...