本文整理自网络,侵删。
实现对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;
相关阅读 >>
Delphi 用 directshow 获取本机的视频摄像设备列表
Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别
Delphi thread.queue与synchronize的区别
更多相关阅读请进入《Delphi》频道 >>