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 xe6调用android标准功能

Delphi 之 tmemo组件使用

Delphi 用 directshow 获取本机的视频摄像设备列表

Delphi 获取计算机串口列表

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi datetimepicker控件日期格式

Delphi编程之桌面图标设置

Delphi 分割文件合并文件的函数

Delphi thread.queue与synchronize的区别

Delphi sendemail 邮件发送单元

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...