[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;