如何向注册表中写入二进制数据(writebanarydata如何用),如何用DELPHI备份和恢复整个注册表?
解决方案 »
- llistview怎么获取点击位置的数值?
- 邪邪邪,如何在内存中操作数据库?
- 水印和水印报表是什么?请教 谢谢!
- ThemeEngine是一个换肤控件,可是修改ThemeEngine中字体大小怎么没有效果,有谁用过?
- ToolBar上面的按钮和菜单项目相对应,点击按钮没有按下的效果,事件却能执行,为什么?
- SQL查询问题,谢谢!
- 数据显示控件怎么用?
- 关于Tstringgrid控件(如何知道哪一行被选中)
- 单位没了 被别人兼并了 前途不明 特不舒服 请教各位 散分
- 我要控制在记事本中的输出格式,比如:
- 我第一次用listbox空件,请帮我看看。
- 关于Listbox和Edit.text对比的问题
0000 01 00 00 00
uses ...,Registry;
var
myReg: TRegistry;
const
myArray: Array[0..3] of Byte = ($01, $00, $00, $00);
begin
myReg := TRegistry.Create;
try
myReg.RootKey := HKEY_CURRENT_USER;
if myReg.OpenKey(software\tommy', True) then
myReg.WriteBinaryData('0000', myArray, 4);
finally
myReg.Free;
end;
end;