Форум: "WinAPI";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
ВнизКак запретить нажатие клавиши "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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.035 c