Membuat program Trial untuk 1 kali jalan

Artikel ini adalah salah satu cara menerapkan sistem trial pada program kita,  fungsinya tentu saja agar tidak mudah dibajak atau digunakan tanpa seijin anda.
sebenarnya selain cara ini ada lagi cara yang sering dipakai oleh seorang programmer  yaitu menggunakan volume hardisk,mac address lancard atau usb dongle. ok perhatikan artikel ini.

program OncePerSessionTrialTest;

uses
Windows,
Forms,
mainUnit in 'mainUnit.pas' {FormMain};

{$R *.res}

var appAtom : THandle;
begin

Application.Initialize;

if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
begin
appAtom := GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;

try
Application.CreateForm(TFormMain, FormMain) ;
Application.Run;
finally
GlobalDeleteAtom(appAtom);
end
end
else
begin
Application.MessageBox(
'You can run the trial version '+
'of this application '+
'only once per Windows session!',
'Test Trial Protection') ;
end;
end.
Kelemahannya cara ini calon pelanggan kita hanya bisa menggunakan program kita sekali saja. Beda jika kita men-disable menu-menu tertentu atau memberikan tenggat waktu (expire date) pada program kita. semoga bermanfaat :D

Sumber :
http://delphi.about.com
http://www.ben-pinter.net