Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Кнопка Пуск [D6, Win2k]


intrSV ©   (2003-12-31 14:32:00) 

Народ подскажите пожалуйста как заблокировать кнопку Пуск програмно.


Almaz   (2004-01-15 23:54:00) [1]


> intrSV   (15.01.04 13:57) [10]
> Да, конечно это все хорошо, работает, однако только для
> мыши. А как так сделать что бы принажатии кнопки Windows
> на клавиатуре меню не появлялось.

Попробуйте так:

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


Тестировалось для Win2k/XP - но скорее всего сработает и в Win98

Удачи.


Alexis   (2004-01-15 20:04:00) [2]

Ну не знаю, у меня полностью блокируется (пробовал в Win98,WinXP)

P.S.Есть еще кулпрограммерский вариант-спичек под кнопку Windows напихать и клеем залить :)


intrSV   (2004-01-15 13:57:00) [3]

Да, конечно это все хорошо, работает, однако только для мыши. А как так сделать что бы принажатии кнопки Windows на клавиатуре меню не появлялось.


Alexis   (2004-01-07 10:49:00) [4]

А где здесь написано, что надо на лету? Зато разблокирование происходит на лету.


Pailchik   (2004-01-06 17:37:00) [5]

этож не на лету :)


Alexis   (2004-01-05 20:43:00) [6]

http://www.winguides.com/registry/category.php/42/

http://www.winguides.com/registry/display.php/905/

www.google.com :)


Paulchik   (2004-01-05 20:17:00) [7]

Это как через реестр?


Alexis   (2004-01-05 18:40:00) [8]

Через реестр.


default   (2004-01-05 00:15:00) [9]

Diamond Cat ©   (05.01.04 00:06) [3]
не поможет


Diamond Cat   (2004-01-05 00:06:00) [10]


> Хотел бы я посмотреть как это можно сделать апаратно :)

заклеить пластырем уголок экрана :о)))


Esc   (2004-01-03 21:12:00) [11]

Хотел бы я посмотреть как это можно сделать апаратно :)


LOX   (2003-12-31 16:00:00) [12]

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',
nil),
false);
Этот код делает неактивной.


Наверх

Титульная страница Поиск, карта сайта Написать письмо