Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Отключение клавиши ПУСК   Найти похожие ветки 

← →
Саша   (2004-07-19 14:42) [0]

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

---

← →
DimKa ©   (2004-07-19 14:49) [1]

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

---

← →
Vit@ly ©   (2004-07-19 14:55) [2]

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

---

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

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

---

← →
Vit@ly ©   (2004-07-19 15:05) [4]

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;

---

← →
pasha_golub ©   (2004-07-19 15:13) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c