本博客记录傻猫的生活、工作和学习,并与大家一起分享快乐.
该日志由 samool 发表于 2006-05-29 10:02 AM
实现对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;
该日志由 samool 发表于 2006-05-28 3:27 PM
该日志由 samool 发表于 2006-05-27 6:00 PM
该日志标签: 函数
该日志由 samool 发表于 2006-05-16 11:48 AM
该日志由 samool 发表于 2006-05-16 11:15 AM
inc有两种用法:
一个是inc(integer),就是加1
比如
i := 100;
inc(i);
就是i变为101
另一个是inc(integer,integer)就是加n
比如
i:=100;
inc(i,50);
就是i变成150
---------------------------------
Dec是递减函数
i:=100;
dec(i);
i就变成99了,如果是dec(i,30)的话,那么i=100-30=70
该日志由 samool 发表于 2006-05-06 4:56 PM