您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

向16进制文件的指定偏移地址写入字符串

时间:2011/9/3 15:21:59 点击:

  核心提示:procedure TForm1.Button1Click(Sender: TObject);var vFS : TFileStream; vStr : String;begin vStr := '1...
procedure TForm1.Button1Click(Sender: TObject);
var
  vFS : TFileStream;
  vStr : String;
begin
  vStr := '1234';
  vFs := TFileStream.Create('C:\e.jpg',fmOpenReadWrite);
  try
    vFS.Position := $400;
    vFS.WriteBuffer(pointer(vStr)^,4);
  finally
    FreeAndNil(vFS);
  end;
end;

作者:starluck 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号