Kita sering melihat bahwa banyak versi uji coba perangkat lunak yang diunduh secara online memiliki batasan waktu penggunaan. Dari sudut pandang komersial, ini juga merupakan langkah untuk melindungi manfaat perangkat lunak. Hal ini memungkinkan pengguna untuk mencobanya secara gratis untuk jangka waktu tertentu. mereka dapat membeli perangkat lunak komersial. Contoh fungsi kode yang dijelaskan dalam artikel ini adalah cara menambahkan fungsi batas waktu ke program yang ditulis dalam Delphi. Batas waktu default di sini adalah 30 hari.
Kode utamanya adalah sebagai berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Registri, Dialog;ketik TForm1 = class(TForm) procedure FormCreate(Sender: TObject private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: prosedur TForm1;implementasi{$R *.DFM} TForm1.FormCreate(Sender: TObject);var registerTemp : TRegistry; curDate : TDateTime;begin registerTemp := TRegistry.Create; dengan registerTemp mulai RootKey := HKEY_LOCAL_MACHINE; 'Perangkat Lunak/Perangkat Lunak Saya' ,Benar) lalu mulai jika ReadBool('Dijalankan') lalu //Ini bukan kali pertama menjalankan dimulai curDate := Tanggal; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') lalu mulai //Waktu sistem saat ini melebihi periode penggunaan ShowMessage('Versi uji coba telah kedaluwarsa'); mulai DeleteKey('LastRunTime'); WriteTime('LastRunTime',Tanggal selesai; akhiri yang lain mulai //Jalankan program untuk pertama kalinya DeleteKey('Runned'); WriteBool('Runned',True); //Tetapkan masa uji coba selama 30 hari WriteInteger('Duration',30); //Tulis waktu berjalan saat ini WriteTime('LastRunTime',Date end; 'Gagal !'); akhir; CloseKey; akhir;akhir;akhir.