本文整理自网络，侵删。
var
stream: TMemoryStream;
CrcValue,OldCrcValue: DWORD;
exename: string;
WriteBuf: array[0..3] of Byte;
begin
CRCValue := $FFFFFFFF; // 预设
WriteBuf[0]:= $00;
WriteBuf[1]:= $00;
WriteBuf[2]:= $00;
WriteBuf[3]:= $00;
exename:= application.ExeName;
stream:= TMemoryStream.Create;
stream.LoadFromFile(exename); // 载入自身exe文件到内存流
stream.Position:= 220; // 设定流的指针位置
stream.Read(OldCrcValue,4); // 读取原来的CRC值
stream.Position:= 220; // 设定流的指针位置,读取流时指针会自动相加
stream.Write(WriteBuf[0],4); // 将储存CRC值处用00补充，以便计算CRC值是否改过
CalcCRC32(stream.Memory,stream.Size,CrcValue); // 计算CRC
CRCvalue := NOT CRCvalue; // 计算CRC
FreeAndNil(stream);
Edit1.Text:= IntToHex(OldCrcValue,8);
Edit2.Text:= IntToHex(CrcValue,8);
if CrcValue <> OldCrcValue then
begin
ShowMessage('文件已经被更改，程序退出！');
Application.Terminate;
end
else
ShowMessage('文件校验正常！');
end;
相关阅读 >>
Delphi tstringlist indexof find 查找字符串
Delphi 判断iso文件，iso文件头， iso filehead
Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出
Delphi readprocessmemory 输入进程id 输入读取地址
Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词
更多相关阅读请进入《Delphi》频道 >>
