เรามักจะเห็นว่าซอฟต์แวร์เวอร์ชันทดลองใช้งานจำนวนมากที่ดาวน์โหลดทางออนไลน์มีการจำกัดเวลาการใช้งาน จากมุมมองเชิงพาณิชย์ นอกจากนี้ยังเป็นมาตรการในการปกป้องสิทธิประโยชน์ของซอฟต์แวร์อีกด้วย พวกเขาสามารถซื้อซอฟต์แวร์เชิงพาณิชย์ได้ ตัวอย่างฟังก์ชันโค้ดที่อธิบายในบทความนี้คือวิธีเพิ่มฟังก์ชันจำกัดเวลาให้กับโปรแกรมที่เขียนด้วย Delphi การจำกัดเวลาเริ่มต้นที่นี่คือ 30 วัน
รหัสหลักมีดังนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, รีจิสทรี, กล่องโต้ตอบ; พิมพ์ TForm1 = คลาส (TForm) ขั้นตอน FormCreate (ผู้ส่ง: TObject); ส่วนตัว { ประกาศส่วนตัว } สาธารณะ { ประกาศสาธารณะ } สิ้นสุด; var Form1: TForm1;ขั้นตอนการดำเนินการ{$R *.DFM} TForm1.FormCreate(Sender: TObject);var registerTemp : TRegistry; curDate : TDateTime;begin registerTemp := TRegistry.Create; with registerTemp do beginning RootKey := HKEY_LOCAL_MACHINE; 'Software/MySoftware' ,True) จากนั้นเริ่มต้นถ้า ReadBool('Runned') จากนั้น //นี่ไม่ใช่ครั้งแรกที่เริ่มต้นการทำงาน curDate := Date; if (curDate-ReadTime('LastRunTime'))>=ReadInteger('Duration') จากนั้นเริ่มต้น //เวลาของระบบปัจจุบันเกินระยะเวลาการใช้งาน ShowMessage('รุ่นทดลองใช้หมดอายุ'); start DeleteKey('LastRunTime'); WriteTime('LastRunTime',Date); end; end else start //รันโปรแกรมเป็นครั้งแรก DeleteKey('Runned'); WriteBool('Runned',True); //กำหนดระยะเวลาทดลองใช้งาน 30 วัน WriteInteger('Duration',30); //เขียนเวลาทำงานปัจจุบัน WriteTime('LastRunTime',end; 'ล้มเหลว !'); end; CloseKey; end;end;end.