Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Клавиша Windows [D7, WinXP]

мерен © (2004-07-21 20:11:00)
Скажите,как c помощью Delphi отключить на клавиатуре клавишу Пуск, т.е тe, что с логотипом Windows (между Ctrl и Alt)???

GrayFace (2004-08-04 11:10:00) [1]
Вытащить клавишу - ничего разбирать не надо.

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

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

Игорь Шевченко (2004-08-04 10:51:00) [2]

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

Эт почему ?

WondeRu (2004-08-04 10:13:00) [3]
Кириешки © (03.08.04 22:01) [6]

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

Игорь Шевченко (2004-08-04 00:47:00) [4]
Кириешки © (03.08.04 22:01) [6]

Внимательно смотрим на операционную систему, указанную в вопросе.

KADAN (2004-08-03 23:25:00) [5]
а можно еще и WndProc подменить... тогда че хошь с ней то и делай :)

Кириешки (2004-08-03 22:01:00) [6]
Кстати да, правильно сказал OSokin © [4]

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

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

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

Кириешки (2004-08-03 21:56:00) [7]
Вот так (хи-хи-хи) ;))

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;

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

OSokin (2004-08-03 20:28:00) [8]
SystemParametersInfo не пробовал?

}{enon (2004-07-21 20:43:00) [9]
Убить тулбар (точнее, саму кнопку "Пуск" :) Насчет юзерских прог не знаю, а Explorer после этого на клавишу "Пуск", равно как и на сочетания с нею, не реагирует в принципе.

Anatoly Podgoretsky (2004-07-21 20:20:00) [10]
Надежный и простой способ, разобрать клавиатуру и положить полиэтиленовую прокладку

GanibalLector (2004-07-21 20:16:00) [11]
hooks

Наверх

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