本文整理自网络，侵删。
声明不是万能的哦
1、检测主程序大小，防止破解补丁之类：
Function TForm1.GesSelfSf: integer;
var
F: file of byte;
begin
Filemode:=0;
Assignfile(F,'.\FileName.exe');
Reset(f);
Result:=Filesize(F);
Closefile(F);
end;
2、检测创建日期和时间，让破解补丁实效：
Function TForm1.FinDate:String;
var
t:TDate;
begin
ShortDateFormat:='yyyy-mm-dd';
t:=FileDateToDateTime(FileAge('FileName.exe'));
Result:=DateToStr(t);
end;
3、注册码加密函数嵌入数学函数，增加破解难度：
（略）
4、必要时自己删除自己（主程序）：
procedure TForm1.Funll;
var
hModule:THandle;
buff:array[0..255]of Char;
hKernel32:THandle;
pExitProcess,pDeleteFileA,pUnmapViewOfFile:Pointer;
begin
hModule:=GetModuleHandle(nil);
GetModuleFileName(hModule, buff, sizeof(buff));
CloseHandle(THandle(4));
hKernel32:=GetModuleHandle('KERNEL32');
pExitProcess:=GetProcAddress(hKernel32, 'ExitProcess');
pDeleteFileA:=GetProcAddress(hKernel32, 'DeleteFileA');
pUnmapViewOfFile:=GetProcAddress(hKernel32, 'UnmapViewOfFile');
asm
LEA EAX, buff
PUSH 0
PUSH 0
PUSH EAX
PUSH pExitProcess
PUSH hModule
PUSH pDeleteFileA
PUSH pUnmapViewOfFile
RET
end;
begin
Funll;
end;
end;
相关阅读 >>
Delphi 测试字符串读取类: tstringreader
Delphi xe5 android 开发实现手机打电话和发短信
Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名
pos、ansipos、fillchar在Delphi2010中unicode的问题
更多相关阅读请进入《Delphi》频道 >>
