Arsip: Menjalankan Aplikasi trial untuk 1 kali jalan

// Nama program aplikasi yang anda buat
// anda bisa ganti sesuai dengan nama program yang anda tentukan
program OncePerSessionTrialTest;
uses
// anda harus menambahkan library windows, sebab secara default ketika kita
  // membuat program, library ini belum disertakan. Dengan demikian, anda harus
  // menambahkannya secara manual. Jangan sampai lupa ya....
  Windows,
Forms,
// ini pas dari unit program yang anda buat
  mainUnit in 'mainUnit.pas' {FormMain};
{$R *.res}
begin
Application.Initialize;
// Ketikkan kode program berikut ini untuk mengecek apakah program aplikasi
 // ini sudah pernah dijalankan atau belum

if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
// Kondisi ketika program aplikasi belum pernah dijalankan
  begin
GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;
Application.CreateForm(TFormMain, FormMain) ;
Application.Run;
end
else
begin
// Kondisi ketika program aplikasi pernah dijalankan
  Application.MessageBox(
'You can run the trial version '+
'of this application '+
'only once per Windows session!',
'Test Trial Protection') ;
end;
end.