＋设为首页 ＋添加到收藏夹
怎么取得exe文件的大小！也就是在程序中自己取得自己的大小！
fileSize报错 I/O error
还有其他办法么？
先把这个文件复制到其他地方，再对那个文件进行操作
function TFormMain.CheckProgramSize():Boolean;
//Description : check the executable files size, prevent it be disassemblied by user
//Date : 2002.11.09
{$IFDEF SizeCheck}
var
F:file of byte;
begin
Filemode := 0;
AssignFile(F,Application.ExeName);
Reset(F);
Result:=FileSize(F)=ProgramSize;
CloseFile(F);
end;
{$ELSE}
begin
Result:=true;
end;
{$ENDIF}
