Отключение клавиши ПУСК

← →
Саша (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]

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

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;

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

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