16.01.2010, 22:40
|
|
Начинающий
|
|
Регистрация: 05.01.2010
Сообщения: 125
Репутация: 10
|
|
Цитата:
Сообщение от san-46
Код:
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;
|
А как её потом опять включить?
__________________
Вот раньше, года этак в 60-е, было всё классно - sex, drugs & rock'n'roll. А сейчас? Suxx, bugs & plug'n'play...
|