| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как запретить нажатие клавиши "WINDOWS" [WinXP]

AndreySoft ©   (2004-06-06 00:30:00) 

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

---

Sanek_metaller   (2004-06-09 19:36:00) [1]

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

---

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

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

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;

---

akvilon   (2004-06-06 18:49:00) [3]

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

---

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

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

Может format c:
;)

---

AndreySoft   (2004-06-06 12:08:00) [5]

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

---

Sanek_metaller   (2004-06-06 11:27:00) [6]

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

---

Lessa   (2004-06-06 09:24:00) [7]

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

---

Наверх