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、检测创建日期和时间，让破

function GetIdeSerialNumber : pchar;const IDENTIFY_BUFFER_SIZE = 512;type   TIDERegs = packed record    bFeaturesReg     : BYTE; // Used for specifying SMART "commands".    bSectorCountReg  : BYTE; //

 本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间，应用期限为30天，超过30天就不再运行。全局变量NoRegistry、SpareDays来