Главная страница
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.046 c
4-1086868594
avgur
2004-06-10 15:56
2004.07.25
Набрать номер модемом и перейти в голосовой режим


9-1081776891
Werwolf
2004-04-12 17:34
2004.07.25
Сохранки


4-1086903079
Zahar
2004-06-11 01:31
2004.07.25
Переменные окружения


3-1088532595
3APA3A
2004-06-29 22:09
2004.07.25
Где хранятся юзеры и пароли?


1-1089355504
Курдль
2004-07-09 10:45
2004.07.25
Нужна функция сжатия изображения, но не TCanvas.StretchDraw