Здравствуйте, все!

Подскажите, пожалуйста, после того, как программа "убила" Explorer:

Код

PostMessage(FindWindow(nil,'Program Manager'),WM_QUIT,1,0)

может ли она (программа) полностью восстановить всё, относящееся
к Explorer'у (кнопку Пуск, Панель задач и т.п.)
без перезагрузки компьютера?

Пытаюсь

Код

ShellExecute(0,'open','Explorer',nil,nil,SW_SHOWNORMAL)

но только открывается окно "Мои документы", а ничего
не восстанавливается .

Странно. Должно нормально восстановиться. А посмотри в CAD, все Explorer убиты?

Если убит Explorer, то винда сама пытается восстановить его (так по дефолту по крайней мере)

Цитата(Poseidon @ 7.1.2006, 22:08 )

Если убит Explorer, то винда сама пытается восстановить его (так по дефолту по крайней мере)

так от сервис пака зависит вроде)
хотя у меня так и не востовналивает если я сам его убью но если при какомлибо зависании он просто уходит в даун и отрубается то тогда винда его сама востонавливает

Цитата(Rowi @ 7.1.2006, 21:29 )

но только открывается окно "Мои документы", а ничего

такое происходит если эксплорэр не вырубился)
потому что если кильнуть процес самому и потомже через меню выполнить опятьже вызвать explorer.exe то всё востоналивает номано
попробую может
Winexec('Explorer.exe',0)

Цитата(SoWa @ 7.1.2006, 21:37 )

А посмотри в CAD, все Explorer убиты?

Я дико извиняюсь, но что такое CAD? Если я правильно догадался - Диспетчер задач Windows?

Цитата(FRAGNATIC @ 7.1.2006, 22:17 )

Цитата(Poseidon @ 7.1.2006, 22:08 ) Если убит Explorer, то винда сама пытается восстановить его (так по дефолту по крайней мере) так от сервис пака зависит вроде) хотя у меня так и не востовналивает если я сам его убью но если при какомлибо зависании он просто уходит в даун и отрубается то тогда винда его сама востонавливает

Именно так у меня и происходит - ДОСЛОВНО!
(Кстати, у меня WinXP SP2)

Цитата(Rowi @ 8.1.2006, 01:37 )

Я дико извиняюсь, но что такое CAD? Если я правильно догадался - Диспетчер задач Windows?

три клавишии
Ctrl +ALt+Delete
Добавлено @ 01:49
Rowi
а вообще оно так и будет работать как ты говоришь тока в том случаии если когда ты таким вот образом убивал эксплорэр было открыто какойнить окно провдника типа диск С или Д или какая-то папка! убивается сам эксплорэр но остаётся висеть это окно процес которого тоже ехсплорэр и когда ты пытаешся заново запустить эксплорэр он видет что такой процес уже есть и думает что это кокрас и есть тот эксплорэр который в себя включает пуск и тп , и поэтому запускает проводник=)
так что килить те надо не прсото окно Program Manager а сами процесы=)

Ой... я, кажется, сам разобрался!
Похоже, я запутался в собственных экспериментах:

не получалось всё восстановить, если хэндл "жертвы" я получал так:

Код

Wnd := FindWindow('Shell_TrayWnd', nil);   Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);

т.е. я убивал кнопку Пуск (собственно, сначала я к этому и стремился). При этом все "симптомы" те же, как и при убиении ProgMan'a. (Кстати, интересно - почему? И можно ли как-то восстановить в этом случае?)

Разница заметна только в Диспетчере задач (Ctrl +ALt+Delete): в этом случае в списке процессов explorer.exe остаётся! А насколько я знаю, если запускать второй (третий и т.д.) экземпляр explorer'a, то как раз и открывается только окно обзора.

А в случае того кода, что я приводил в начале - всё чудненько восстанавливается!
Так что ооочччень прошу меня извинить за ложную тревогу и за мою собственную рассеянность...

Это сообщение отредактировал(а) Rowi - 8.1.2006, 03:09

Цитата(Rowi @ 8.1.2006, 03:06 )

т.е. я убивал кнопку Пуск (собственно, сначала я к этому и стремился).

Код

// Скрывает (вариант 1)     procedure TForm1.Button1Click(Sender: TObject);     var Rgn:hRgn;     begin     Rgn:=CreateRectRgn(0,0,0,0);     SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),Rgn,true);     end;       // Показывает (вариант 1)     procedure TForm1.Button2Click(Sender: TObject);     begin     SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),0,true);     end;       // Скрывает (вариант2)     procedure TForm1.Button5Click(Sender: TObject);     begin     ShowWindow(GetWindow(FindWindow('Shell_TrayWnd',nil),GW_CHILD),SW_HIDE);     end;       // Показывает (вариант2)     procedure TForm1.Button6Click(Sender: TObject);     begin     ShowWindow(GetWindow(FindWindow('Shell_TrayWnd',nil),GW_CHILD),SW_NORMAL);     end;       // Делает недоступной     procedure TForm1.Button3Click(Sender: TObject);     begin     EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),false);     end;       // Снова доступна     procedure TForm1.Button4Click(Sender: TObject);     begin     EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),true);     end;      ...     //Коментарий: Клавиша Windows срабатывает во всех вариантах               ///////////////////////////////////

Rowi, так Пуск является "сoбственностью" Explorer и поэтому когда ты убиваешь пуск, убивается и панель задач (визуально) а сам процесс Explorer.exe остается висеть в памяти, для скрытия кнопки Пуск юзай методы которые показал Albinos_x

Цитата(Albinos_x @ 8.1.2006, 04:02 )

//Коментарий: Клавиша Windows срабатывает во всех вариантах

Как раз это меня и не устраивало (я ранее пробовал эти варианты), а плюс ещё и <Ctrl+Esc>!
Поэтому и пришёл к необходимости убивать либо кнопку "Пуск", либо весь Explorer. С Hook'ами связываться почему-то не хотелось.

Цитата(Rowi @ 8.1.2006, 03:06 )

все "симптомы" те же, как и при убиении ProgMan'a.

Продолжая свои эксперименты, я таки заметил небольшую разницу:

• Когда убивается только кнопка, при сворачивании разных рабочих окон они "складываются" внизу наподобие, как ChildForm в MDI. При этом, естественно, легче с ними работать.
• А когда убивается весь Explorer, то эти окна при сворачивании просто "исчезают", и достать их можно только по <Alt+Tab>, что соответственно, не так удобно.

Поэтому первый вариант всё-таки чуть лучше.

И вроде уже придумал, как тут быть (правда, "из Москвы в Питер через Магадан" ):
Я сначала убиваю только кнопку, а когда потом надо всё восстановить, то сперва "добиваю" весь Explorer, а только потом его запускаю по новой. Несколько морочливо, но работает!

P.S. Проблема вроде как решена (всем огромное спасибо за отзывчивость!), но если кто-нибудь всё же наведёт на мысль, как "в Питер напрямую попасть ", то это уже будет решение на 100%!
Только из-за этой надежды пока не пометил вопрос, как "решённый"...

Это сообщение отредактировал(а) Rowi - 8.1.2006, 13:58