delphi 校验文件大小-木庄网络博客

本文整理自网络，侵删。

 实现对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判断字符是否是汉字

Delphi注入下载者源代码

Delphi tstringlist indexof find 查找字符串

Delphi 通过程序窗体句柄获取程序路径

Delphi trim 删除字符串左右两边的空格

Delphi cannot find implementation of method formcreate 解决办法

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi webbrowser控件里编辑网页

更多相关阅读请进入《Delphi》频道 >>