当前位置:软件学习 > Word >>

向注册表写入REG_BINARY或REG_DWORD类型的值

来源:大富翁

//如何向注册表写入REG_BINARY或REG_DWORD类型的值
procedure TForm1.Button1Click(Sender: TObject);
Const
  aBuf : Array[1..24] Of Byte = (00,00,00,00,00,00,00,00,03,00,00,00,00,00,$5b,$e0,00,00,$5c,$e0,00,00,00,00);
var
  Buf : Array[1..24] Of Byte;
  Reg : TRegistry;
  i : Integer;
begin
  For i := 1 To 24 Do
  begin
    Buf[i] := aBuf[i];
  end;
  Reg := TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey(SYSTEMCurrentControlSetControlKeyboard Layout,True);
    Reg.WriteBinaryData(Test, Buf, Sizeof(Buf)); //REG_BINARY
    //Reg.WriteInteger(Test, 123); //REG_DWORD
    //Reg.WriteTime(Test, Now);
  Finally
    Reg.CloseKey;
    Reg.Free;
  End;
end;

补充:综合编程 , 安全编程 ,
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,