Procedure SetImeDefault;//设置默认输入法的设置
var
Buffer: String;
ff: Integer;
tm: String;
i: Integer;
function ssToHex(aSS: String): String;//把16进制以注册表形式显示
var
i: Integer;
tm: String;
begin
tm := '';
for I := 1 to Length(aSS) div 2 do
begin
tm := tm + Copy(aSS, i * 2 - 1, 2) + ',';
end;
Result := tm;
end;
begin
with TRegistry.Create do
begin
if OpenKey('HKEY_USERS\.DEFAULT\Control Panel\Input Method\Hot Keys\00000010', True) then
begin
ff := $06c00000; //把16进制转换10十进制
tm := inttoHex(ff, 8);//把10进制转换16进制
Buffer := 'Hex:' + ssToHex(tm);
WriteBinaryData('Key Modifiers', Buffer, SizeOf(Buffer));
{ff := $020000000;
Buffer := 'Hex:' + inttoHex(ff, 8);
Buffer := 'Hex:' + ssToHex(tm);//把16进制以注册表形式显示
WriteBinaryData('Virtual Key', Buffer, SizeOf(Buffer));
ff := $00000000;
Buffer := 'Hex:' + inttoHex(ff, 8);
Buffer := 'Hex:' + ssToHex(tm);
WriteBinaryData('Target IME', Buffer, SizeOf(Buffer));}
end;
CloseKey;
Destroy;
end;
end;
评论