[求助]如何把禁win键的注册表写入注册表?~~~~
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map "=hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,00,00,00,00
delphi 的WriteBinaryData如何把这个写入?...
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
Buffer:array[0..1024] of Char;
begin
StrLCopy(Buffer,PChar( '00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,00,00,00,00 '),Sizeof(Buffer));
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey( '\List ',False) then
Reg.WriteBinaryData( 'List ',Buffer,Sizeof(Buffer));
Reg.CloseKey;
end;
方法是这样,你改改就可以用。
