Delphi 소프트웨어 사용 시간 제한 실현 방법

우 리 는 인터넷 에서 다운로드 한 시용 판 소프트웨어 를 자주 볼 수 있 는데 모두 사용 시간의 제한 이 있다.상업 적 인 측면 에서 볼 때 소프트웨어 효 익 보호 에 있 는 조치 이기 때문에 사용자 가 한 동안 무료 로 사용 할 수 있 고 만족 하면 상업 소프트웨어 를 구 매 할 수 있다.본 논문 에서 말 한 인 스 턴 스 코드 기능 은 Delphi 가 작성 한 프로그램 에 사용 시간 제한 기능 을 추가 하 는 방법 입 니 다.여기 서 기본 기한 은 30 일 입 니 다.
주요 코드 는 다음 과 같 습 니 다.

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 Registry, Dialogs;
type
 TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
  registerTemp : TRegistry;
  curDate : TDateTime;
begin
  registerTemp := TRegistry.Create;
  with registerTemp do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    //          
    if OpenKey('Software\MySoftware',True) then
    begin
      if ReadBool('Runned') then
      //       
      begin
        curDate := Date;
        if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then
        begin
          //              
          ShowMessage('      ');
          exit;
        end
        else
        begin
          DeleteKey('LastRunTime');
          WriteTime('LastRunTime',Date);
        end;
      end
      else
      begin
        //      
        DeleteKey('Runned');
        WriteBool('Runned',True);
        //      30 
        WriteInteger('Duration',30);
        //        
        WriteTime('LastRunTime',Date);
      end;
    end
    else
    begin
      ShowMessage('Fails!');
    end;
    CloseKey;
  end;
end;
end.

좋은 웹페이지 즐겨찾기