[Electronic_Arts]

Как выключить explorer.exe ?? а то не получаеться отключить клавишу Win

[AND_REY]

Выкл explorer:

Код:

uses
 ShellAPI;
Procedure ExpClose;
begin
 ShellExecute(0,'open','taskkill.exe','/f /im explorer.exe',nil,SW_HIDE);
end;

[Ferra]

Ох, зря вы это затеяли. Вы хоть в курсе что большАя часть всех процессов - дочерние у эксплорер.ехе? И к чему приводит завершение этого процесса вы тоже надеюсь знаете?

лучше ловить нажатие этой клавиши через хуки (hooks) и просто напросто не передавать дальше.

[Electronic_Arts]

Cпасибо огромное...

[Electronic_Arts]

а как сделать чтоб результатом нажатие клавишы WIN окозалась пустатой
ну чтоб не отображался меню пуск

[MrBadge]

кстати, такой же вопрос ... решилось так :

Код:

SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), GWL_ID, -1);

Но отключается только на Xp ... семерка и виста не реагируют ... Кто-нибудь знает, в чем дело?

[Electronic_Arts]

а как пуск ключить то???

[MrBadge]

включить?) ... если да, то просто перезагрузи винду) .... однако, может, кто-нибудь знает ответ на мой вопрос?)

[Ferra]

Сообщение от MrBadge

кстати, такой же вопрос ... решилось так :

Код:

SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), GWL_ID, -1);

Но отключается только на Xp ... семерка и виста не реагируют ... Кто-нибудь знает, в чем дело?

очевидно что FindWindow не так как нужно работает, потому как неправильно класс окна указан (мб его переименовали). Но это всего лишь первая мысль. Лучше почитать в мсдэне.

[0nni]

Сообщение от Ferra

Ох, зря вы это затеяли. Вы хоть в курсе что большАя часть всех процессов - дочерние у эксплорер.ехе? И к чему приводит завершение этого процесса вы тоже надеюсь знаете?

Ровным счетом ни к чему не приведет. У многих стоят альтернативные оболочки для window (у меня BlackBox, например стоит у меня) и все прекрасно работает без explorer'a.

А если по теме, то запросы в гугл выдают кучу ссылок на тему отключения клавиши window

[Ferra]

Ты не понял они ответ. Одно дело заменить родную оболочку, а совсем другое дело завершить процесс на который много чего подвешено.

[0nni]

Ну вот как бы пример завершения блокнота, на котором у меня "много чего подвешено".


Ничего не произошло - все живы.

[Electronic_Arts]

Сообщение от MrBadge

Код:

SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), GWL_ID, -1);

Ferra Этот процесс просто возврашает значение - коротко если открыли меню пуск то его закрываем....но в процессе есть ощибка конкретно вот в этом все дело GWL_ID задает новое значение кнопке пуск.....
а как вернуть все в норму я незнаю пока ток перезапуском explorera можно решить эту проблему

так вот - а вырубить explorer.exe реально можно так - как сказал выше AND_REY

Код:

shellexecute(0, 'open', 'taskkill.exe', '/f /im explorer.exe', nil, sw_hide);

[Electronic_Arts]

Сообщение от Ferra

лучше ловить нажатие этой клавиши через хуки (hooks) и просто напросто не передавать дальше.

Ferra - отловили клавишу - что дальше????

Код:

begin
if (key=vk_lwin) or (key=vk_rwin) then
begin
 // как остановить действие???? чтоб не отображалась меню пуск
end;
end;

[mak-karpov]

Это не хук