Четверг, 28.03.2024, 22:01 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » подскажите как заблокировать нажатие клавиши вин на клавиату (подскажите как заблокировать нажатие клавиши вин на клавиату)
подскажите как заблокировать нажатие клавиши вин на клавиату
jaygenДата: Вторник, 14.02.2012, 22:30 | Сообщение # 1
Был не раз
Зарегистрирован: 19.01.2012
Группа: Пользователи
Сообщений: 11
Статус: Offline
подскажите как заблокировать нажатие клавиши вин на клавиатуре
 
NeoДата: Среда, 15.02.2012, 13:59 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
А вот как smile
Code
uses Registry;
prcedure WriteReg
var
    reg: TRegistry;
    Buf: array[0..23] of byte = (0,0,0,0,0,0,0,0,3,0,0,0,0,0,$5B,$E0,0,0,$5C,$E0,0,0,0,0);
begin
    reg := TRegistry.Create;
    try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.OpenKey('SYSTEM\CurrentControlSet\Control\Keyboard Layout', True)   
      then begin
        Reg.WriteBinaryData('Scancode Map', Buf, SizeOf(Buf));
        //если такого имени нет, то оно создается этой процедурой
        reg.CloseKey;
      end;
    finally
      reg.Free;
    end;
end;


Сообщение отредактировал Neo - Среда, 15.02.2012, 13:59
 
sk0rpi0nДата: Среда, 15.02.2012, 16:37 | Сообщение # 3
Участник
Зарегистрирован: 28.05.2011
Группа: Пользователи
Сообщений: 65
Статус: Offline
Ещё вроде можно что-то вроде если нажата заданная клавиша, то key:=0#;

C++ - попса :D
 
delphicode » Delphi » Вирусология Delphi » подскажите как заблокировать нажатие клавиши вин на клавиату (подскажите как заблокировать нажатие клавиши вин на клавиату)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz