온라인으로 다운로드한 많은 소프트웨어의 평가판에는 사용 시간 제한이 있는 것을 흔히 볼 수 있습니다. 이는 상업적인 관점에서 볼 때 사용자가 일정 기간 동안 무료로 사용해 볼 수 있는 조치이기도 합니다. 그들은 상용 소프트웨어를 구입할 수 있습니다. 이 기사에서 설명하는 예제 코드 함수는 Delphi로 작성된 프로그램에 시간 제한 기능을 추가하는 방법입니다. 여기서 기본 시간 제한은 30일입니다.
주요 코드는 다음과 같습니다.
단위 Unit1;인터페이스는 Windows, 메시지, SysUtils, 클래스, 그래픽, 컨트롤, 양식, 레지스트리, 대화 상자를 사용합니다. 유형 TForm1 = class(TForm) 절차 FormCreate(Sender: TObject) private { Private 선언 } public { Public 선언 } end;var Form1: TForm1;구현{$R *.DFM}프로시저 TForm1.FormCreate(Sender: TObject);varregisterTemp : TRegistry; curDate : TDateTime;beginregisterTemp := TRegistry.Create; withregisterTemp do start RootKey := HKEY_LOCAL_MACHINE //OpenKey( 'Software/MySoftware' ,True) then start if ReadBool('Runned') then //이번이 처음으로 실행되는 것이 아닙니다. curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') then start //현재 시스템 시간이 사용 기간을 초과했습니다. ShowMessage('평가판 버전이 만료되었습니다.') end else; startDeleteKey('LastRunTime'); WriteTime('LastRunTime',Date); end else start //처음으로 프로그램을 실행합니다.DeleteKey('Runned'); WriteBool('Runned',True); //평가판 기간을 30일로 설정합니다. WriteInteger('Duration',30); //현재 실행 시간을 씁니다. end else start ShowMessage( '실패!') end;end;end;