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; 

相关阅读 >>

Delphi2010下安装控件Delphi

Delphi idftp用法

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi 获得控件所在的窗体

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi webbrowser.oleobject属性

Delphi 用空格把 s 凑够 n 的长度

Delphi fmx 安卓跳转到支付宝付款页面

Delphi10.3.1安卓照相

Delphi 移动windows开始按钮到任务栏中的任何位置

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

转载请注明出处：木庄网络博客 » delphi 校验文件大小