Jumat, 08 April 2011

Membuat Program Trial Version Dengan Delphi

Quantcast
Sering kali kita mendownload sebuah program / aplikasi yang bersifat trial version. Bermacam-macam cara untuk membuat program tersebuat menjadi Full Version, dengan memasukkan Key-Code, atau bahkan dengan cara Crack sekalipun. Tetapi disini kita tidak akan membuat sebuah aplikasi yang berfungsi untuk mengecrack program trial menjadi program yang full version. Kita akan membuat sebuah aplikasi yang hanya bisa dijalankan sekali saja, Untuk menjalankannya kembali kita harus me-restart komputer kita. Tulisan ini bukannya mengajak kita untuk membuat sebuah program yang bersifat “pelit” tetapi hanya untuk pengetahuan saja.
Program ini dibuat dengan Borland Delphi 6, Berikut Source Code aplikasi tersebut:
Event on Show pada component Form1
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
  atom : integer;
  CRLF : string;
begin
  if GlobalFindAtom ('text') = 0 then
    atom := GlobalAddAtom ('text')
  else
  begin
    CRLF := #10#13;
    ShowMessage ('This version may only be run once every Windows Session.'
      + CRLF +
      'To run this application again, you need to restart Windows,'
      + CRLF + 'or purchase a license.!!');
    Close
  end
end;

end.

Tidak ada komentar:

Posting Komentar