AI摘要
本文介绍了一种校验EXE文件大小的方法，以确保程序未被修改或感染病毒。通过定义文件大小常量ThisFileSize，使用CheckThisFileSizeok函数打开文件、获取文件大小并与预设大小比较，若相等则返回true，否则返回false。
本文介绍了一种校验
实现对EXE文件的校验字节大小,防止程序被修改或中病毒.
const
//先定义文件的大小
ThisFileSize = 12429824 ;
function CheckThisFileSizeok:boolean;
var vv:ofstruct;
i,len1:integer;
begin
Result :=false;
i:=openfile(pchar(Application.exename),vv,0);
len1:=GetFileSize(i,nil);
_lclose(i);
if len1=ThisFileSize then
Result :=true;
end;