Membuat Program Trial Version Dengan Delphi

18 05 2009

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.

Reff : Delphi Tips Explorer


Actions

Information

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: