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

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

Отключение клавиши ПУСК [D7, WinXP]

Саша ©   (2004-07-19 14:42:00) 

Подскажите,как с помощью Delphi отключить клавишу ПУСК (с окошком Windows) :)???

---

pasha_golub   (2004-07-19 15:13:00) [1]

Выламать ножичком.

---

Vit@ly   (2004-07-19 15:05:00) [2]

procedure TForm1.Button7Click(Sender: TObject);
begin //заблокировать
hWind:= FindWindow('Shell_TrayWnd', nil);
hWind:= FindWindowEx(hWind, 0, 'Button', nil);
Relative:=  GetWindowLong(FindWindowEx(
               FindWindow('Shell_TrayWnd', nil),                0,                                 //
               'Button',
               nil),
               GWL_ID);
SetWindowLong(FindWindowEx(
               FindWindow('Shell_TrayWnd', nil),                0,                                
               'Button',
               nil),
               GWL_ID,
               -1);
Button8.Enabled:= True;                
end;

procedure TForm1.Button8Click(Sender: TObject);
begin // раблокировать
SetWindowLong(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
               0,
               'Button',
               nil),
               gwl_ID,
               Relative);
end;

---

Саша   (2004-07-19 14:57:00) [3]

Речь идет о клаве :)

---

Vit@ly   (2004-07-19 14:55:00) [4]

> DimKa ©   (19.07.04 14:49) [1]
Насколько я понимаю речь идет не баттоне, а о клавине.
Можно под Win2k, WinXP

---

DimKa   (2004-07-19 14:49:00) [5]

Что значит отключить? скрыть или сделать неактивной?

---

Наверх