详见内容

Question

uses ImageHLP;
 
Get PE headsum
MapFileAndCheckSum(FileName, CheckSum, HeadSum);
修改没试过

Answer 1

uses ImageHLP;//名称不知对不对Get PE headersum
filename: PChar, CheckSum , HeaderSum: DWORDMapFileAndCheckSum(FileName, CheckSum, HeaderSum);

Answer 2

var 
  FS : TStream;
  Size : integer;
  Buf : array of char; 
begin
  FS := TMemoryStream.Create;
  try
    FS.LoadFromFile(...);
    FS.Position:= FS.Size;    
    SetLength(Buf,Size);
    ...//设置数据
    FS.Write(Buf,Size);
    FS.SaveToFile(...);
  finally
    FS.Free;
  end;
end;使用流可以完成所有的文件操作。