Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Как запретить нажатие клавиши "WINDOWS"   Найти похожие ветки 

 
AndreySoft   (2004-06-06 00:30) [0]

Ну вобщем я запускаю программу на форме есть две кнопки,
после нажатия первой - клавиша "WINDOWS" на клавиатуре должна перестать работать...
а по щелчке по второй кнопке - наоборот, клавиша "WINDOWS" должна работать...
Как мне это сделать?
или может быть кто-нибудь знает код этой клавиши...


 
Lessa   (2004-06-06 09:24) [1]

левая 91, правая 92
:)


 
Sanek_metaller ©   (2004-06-06 11:27) [2]

Var b:boolean;
b:=Тебе падо что бы Пуск не открывался?
If b=true then
Это же вредительство!
else
Тогда нафига тебе это?
Может VK_C:\Windows:)


 
AndreySoft   (2004-06-06 12:08) [3]

Это не вредительство, а ограничение доступа...


 
Lessa   (2004-06-06 14:23) [4]

>Тогда нафига тебе это?
>Может VK_C:\Windows:)


Может format c:
;)


 
akvilon   (2004-06-06 18:49) [5]

2 Sanek_metaller ©   (06.06.04 11:27) [2]
Например, геймеры часто ругаются матом, когда попадают по этой кнопке, и я был бы не прочь отрубать ее и включать потом обратно. Вот нафига...


 
AndreySoft   (2004-06-08 00:44) [6]

Спасибо всем что помогли... :-)
ну да ладно, я уже нашёл решение, а так как я уважаю этот форум (странно только что никто мне не помог), то если кому пригодиться, вот:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Registry:TRegistry;
Buffer:array [0..23] of Byte;
begin
Buffer[0] := 00;
Buffer[1] := 00;
Buffer[2] := 00;
Buffer[3] := 00;
Buffer[4] := 00;
Buffer[5] := 00;
Buffer[6] := 00;
Buffer[7] := 00;
Buffer[8] := 03;
Buffer[9] := 00;
Buffer[10] := 00;
Buffer[11] := 00;
Buffer[12] := 00;
Buffer[13] := 00;
Buffer[14] := 91;
Buffer[15] := 224;
Buffer[16] := 00;
Buffer[17] := 00;
Buffer[18] := 92;
Buffer[19] := 224;
Buffer[20] := 00;
Buffer[21] := 00;
Buffer[22] := 00;
Buffer[23] := 00;
Registry := TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey("SYSTEM\CurrentControlSet\Control\Keyboard Layout",true);
Registry.WriteBinaryData("Scancode Map", Buffer, SizeOf(Buffer));
Registry.CloseKey;
Registry.Free;
MessageDlg("Чтобы изменения системы вступили в силу, необходима перезагрузка Windows.",mtInformation,[mbOK],0);
ExitWindowsEx(EWX_FORCE or ewx_force,0);
end;


 
Sanek_metaller ©   (2004-06-09 19:36) [7]

akvilon   (06.06.04 18:49) [5]
Геймеры благодарят бога когда игра сворачивается и там их ждет ArtMoney:)



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

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

Наверх




Память: 0.48 MB
Время: 0.048 c
11-1077812310
ALeXXXXX
2004-02-26 19:18
2004.07.25
Почему часто выбивает ошибку в SysUtils?


1-1089362290
half_litre
2004-07-09 12:38
2004.07.25
Графический компонент для отображение отношений many-to-many


1-1089388869
Paladin
2004-07-09 20:01
2004.07.25
Аналог функции Add Folder из WinAmp a


3-1088433735
MORA
2004-06-28 18:42
2004.07.25
IB


14-1088944443
Undert
2004-07-04 16:34
2004.07.25
St.-Petersburg + "W+" +" *DSL" + "Fairy Cow Unlimited"