project1.dpr

这是一个可以实用的通用破解软件时间限制的程序源码

program Project1;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  inifiles,
  DateUtils,
  Dialogs;

{$R *.res}
var
  myIniFile:TiniFile;
  CurDateTime,LastDateTime:TDateTime;
  sysdttm: SYSTEMTIME;
  Gap:integer;
  ExeFileName:string;
  IncTime:string;

begin
  Application.Initialize;
  Application.Run;
  myIniFile:=tinifile.Create('.\ExeInfo.ini');
  Gap:=myIniFile.Readinteger('INFO','GAP',5000);
  IncTime:=myIniFile.ReadString('INFO','INCTIME','Y');
  LastDateTime:=myIniFile.ReadDateTime('INFO','DATETIME',NOW());

  If IncTime='Y' then LastDateTime:=IncMilliSecond(LastDateTime,gap);

  CurDateTime:=now();

  //将本地机时间设置
  DateTimeToSystemTime(LastDateTime, sysdttm);
  SetLocalTime(sysdttm);

  ExeFileName:=myIniFile.ReadString('INFO','ExeName','');
  if length(trim(ExeFileName))=0 then exit;

  winexec(Pchar(ExeFileName),1);
  sleep(gap);

  if IncTime='Y' Then myInifile.WriteDateTime('INFO','DATETIME',IncMilliSecond(LastDateTime,gap));
  myInifile.Free;


  //将本地机时间恢复
  DateTimeToSystemTime(IncMilliSecond(CurDateTime,gap), sysdttm);
  SetLocalTime(sysdttm);



end.