Cara Membatasi Penggunaan Program Aplikasi Di Delphi

Berikut ini saya akan memberikan sebuah trik bagaimana cara membatasi penggunaan program aplikasi di Delphi, atau dengan kata lain membuat software demo/trial software dari sebuah project pesanan konsumen.
Salah satu contoh kasus ketika ada permintaan sebuah project program, konsumen selalu minta dibuatkan demo softwarenya atau sample sebelum dia membeli, jika kita berikan programnya untuk sample, kemudian program tersebut tidak jadi untuk dibeli, kemungkinan program tersebut masih bisa digunakan karena sudah kita berikan exe nya.

Namun kita bisa membatasi sample program tersebut dengan dua cara yaitu Cara pertama membatasi program berdasarkan tanggal dengan kelemahan tanggal bisa digulir, Cara Kedua Dengan Sesion Windows hanya Satu kali dijalankan cara ini juga cukup efektif untuk membuat jengkel pemakai yang ingin membajak, karena program hanya dijalankan satu kali dalam session windows.

Adapun source code programnya adalah sebagai berikut :

1. Contoh source code program untuk membatasi program berdasarkan tanggal.

//Membatasi Program Berdasarkan tanggal
//Code written by Dede Kurniadi http://dedekurniadi.web.id
//tempatkan di project dpr Code source Unit Anda;
Const 
  Email='[email protected]';
  Homepage='www.teknisoft.co.id';
  YearExp=2004;
  MonthExp=6;
  DayExp=30;
  function CheckDate(y,m,d: Integer): Boolean;
  begin
    Result:=True;
    if (Date > EnCodeDate(y,m,d)) then //perbandingan lebih dari
      begin
        beep;
        ShowMessage('Maaf masa demo program sudah habis. !'+^j+
        ' di'+^j +Homepage+^j + 'atau kirim surat :' + Email);
        Result:=False;
      end;
  end;
{$R *.res}

begin
  if CheckDate(YearExp,MonthExp,DayExp) then
  begin
application.run
//list
End.

2. Contoh source code membatasi dengan Sesion windows hanya Satu kali dijalankan.

//Membatasi Program Dengan Sesion Windows hanya Satu kali dijalankan
//Code written by Dede Kurniadi http://dedekurniadi.web.id
unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
     NamaAtom ='Program versi demo';
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
   atom : integer;
begin
    if GlobalFindAtom(NamaAtom) = 0 then
         atom := GlobalAddAtom(NamaAtom)
    else
    begin
    ShowMessage('Program ini hanya dapat dijalankan sekali’+
    'dalam satu sesi Windows' + #10 + #13 +
    'Untuk menjalankan program ini lagi’+
    'restart komputer Anda atau silakan'+#10+#13+
    'BELI LISENSI PROGRAM INI !!');
          Application.Terminate;
    end;
end;
end.

Untuk source code lengkap dan contoh penggunaan silahan Download
1. Contoh source code berdasarkan session windows
Download via MediaFire 
Download via 4Shared
2. Contoh source code berdasarkan tanggal
Download via MediaFire 
Download via 4Shared

Cara Membatasi Penggunaan Program Aplikasi Di Delphi 100%out of 100% based on 5 ratings. 5 user reviews.