![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
DELPHI
文章平均质量分 75
mentoro
这个作者很懒,什么都没留下…
展开
-
程序加密方法
1、检测主程序大小,防止破解补丁之类:Function TForm1.GesSelfSf: integer;varF: file of byte;begin Filemode:=0; Assignfile(F,./FileName.exe); Reset(f); Result:=Filesize(F); Closefile(F);end;2、检测创建日期和时间,让破原创 2009-07-31 17:44:00 · 604 阅读 · 0 评论 -
提取硬盘ID号
function GetIdeSerialNumber : pchar;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg : BYTE; // Used for specifying SMART "commands". bSectorCountReg : BYTE; //原创 2009-07-31 17:45:00 · 485 阅读 · 0 评论 -
确定程序是否运行
本例中TRegistry是关键类,Delphi 4.0不能自行加入,需在uses部分手工加入“registry”,通过其方法“ReadString”和“WriteString”来读出和写入字符,亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间,应用期限为30天,超过30天就不再运行。全局变量NoRegistry、SpareDays来原创 2009-07-31 17:41:00 · 282 阅读 · 0 评论