返回列表 发帖
Winmillion

Rank: 2

帖子
30 
积分
71 
威望
56  
金钱
52  
在线时间
14 小时 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2010-3-28 18:03 | 只看该作者

Delphi中如何读取注册表的(二进制)键值并复制到别的键值里?

二进制, Delphi, 注册表
如:
HKEY_LOCAL_MACHINE\SOFTWARE项里的A键,键值为REG_BINARY(二进制),把A的键值复制给B的键值.

经在百度和谷歌搜索答案都没列出列子,望前辈们指教!
收藏 分享

柔肠寸断

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

帖子
3852 
积分
13044 
威望
16780  
金钱
36761  
在线时间
1139 小时 

管理组高手勋章核心成员原创奖章帅哥勋章突出贡献奖优质人品奖章论坛元老管理组成员技术组成员
2楼
发表于 2010-3-29 12:38 | 只看该作者
delphi的HELP中本身就有例子的,改一下就可以了

Delphi(Pascal) code

uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  buff:array [0..100] of byte;
  len:integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software', True) then
   begin
      len:=Reg.ReadBinaryData('A',buff,100);
      Reg.WriteBinaryData('B',buff,len);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
end;
end;
希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

TOP

冷酷鲨鱼

Rank: 6Rank: 6

帖子
430 
积分
872 
威望
761  
金钱
804  
在线时间
138 小时 
3楼
发表于 2010-4-13 19:38 | 只看该作者
好东西！！！！！！

TOP

返回列表