Четверг, 22.06.2017, 15:01 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx 
delfcode » Delphi » Вирусология Delphi » подскажите как заблокировать нажатие клавиши вин на клавиату (подскажите как заблокировать нажатие клавиши вин на клавиату)
подскажите как заблокировать нажатие клавиши вин на клавиату
jaygenДата: Вторник, 14.02.2012, 22:30 | Сообщение # 1
Был не раз
Зарегистрирован: 19.01.2012
Группа: Пользователи
Сообщений: 11
Статус: Offline
подскажите как заблокировать нажатие клавиши вин на клавиатуре
 
NeoДата: Среда, 15.02.2012, 13:59 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: 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
 
delfcode » Delphi » Вирусология Delphi » подскажите как заблокировать нажатие клавиши вин на клавиату (подскажите как заблокировать нажатие клавиши вин на клавиату)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz