注册表数据导出问题

iqyely 2009-09-14 06:49:35
代码如下:

rdBinary:
begin
Write(F, 'hex:');
j := Reg.GetDataSize(t);
GetMem(p, j);
Reg.ReadBinaryData(t, p^, j);
for k := 0 to j - 1 do
begin
Write(F, IntToHex(byte(p[k]), 2));
if k <> j - 1 then
begin
Write(F, ',');
if (K > 0) and ((K mod 25) = 0) then
WriteLn(F, '\');
end;
end;
FreeMem(p, j);
WriteLn(F);
end;


这是将注册表中的二进制数据导出到文件的操作,但怎么导出的数据部正确呢?
原本是hex:aa,4f,03的数据,到处后成了hex:aa,03,03错在哪里了呢?请大家帮忙看看,谢谢。
...全文
94 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
beifangke 2009-09-15
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 tfwjs 的回复:]
这个网站的东西真不错网址是:http://www.9txf.cn/index.asp?pid=12791813
[/Quote]
到处做广告,建议管理员做一下处理
wxsan 2009-09-15
  • 打赏
  • 举报
回复
沙发

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧