Клавиша Windows

← →
мерен (2004-07-21 20:11) [0]

Скажите,как c помощью Delphi отключить на клавиатуре клавишу Пуск, т.е тe, что с логотипом Windows (между Ctrl и Alt)???

← →
GanibalLector © (2004-07-21 20:16) [1]

hooks

← →
Anatoly Podgoretsky © (2004-07-21 20:20) [2]

Надежный и простой способ, разобрать клавиатуру и положить полиэтиленовую прокладку

← →
}{enon © (2004-07-21 20:43) [3]

Убить тулбар (точнее, саму кнопку "Пуск" :) Насчет юзерских прог не знаю, а Explorer после этого на клавишу "Пуск", равно как и на сочетания с нею, не реагирует в принципе.

← →
OSokin © (2004-08-03 20:28) [4]

SystemParametersInfo не пробовал?

← →
Кириешки © (2004-08-03 21:56) [5]

Вот так (хи-хи-хи) ;))

Var Tray, Child : hWnd;
C : Array[0..127] of Char; S : String;
begin
begin
Tray := FindWindow("Shell_TrayWnd", NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0 do
Begin
If GetClassName(Child, C, SizeOf(C)) > 0 Then
Begin
S := StrPAS(C);
If UpperCase(S) = "BUTTON" then
ShowWindow(Child, 0);
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
end;
end;

или так :

var
hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;

Надеюсь поможет отключить кнопку "пуск"

← →
Кириешки © (2004-08-03 22:01) [6]

Кстати да, правильно сказал OSokin © [4]

используй это
SystemParametersInfо
Вырубает не только клавишу "пуск", но и CTRL+ALT+DEL, ALT-TAB, CTRL-ESC.

вот так включить :
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);

вот так выключить
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

← →
KADAN © (2004-08-03 23:25) [7]

а можно еще и WndProc подменить... тогда че хошь с ней то и делай :)

← →
Игорь Шевченко © (2004-08-04 00:47) [8]

> вообще пора забывать про win9x

Эт почему ?

Вытащить клавишу - ничего разбирать не надо.

KADAN © (03.08.04 23:25) [7]
> а можно еще и WndProc подменить... тогда че хошь с ней то и делай :)

Низя. Этьо только у своих потоков.

Клавиша Windows Найти похожие ветки