Membuat Aplikasi Trial Version Menggunakan Delphi

Pernah mendownload aplikasi bersifat trial version ? dan untuk menjadikannya full version sobat harus mendapatkan key code ataupun dengan cara crack. Tapi kita tidak akan membuat aplikasi trial menjadi full version tapi kita akan coba membuat aplikasi yang hanya bisa dijalankan sekali running saja, dan untuk menjalankan aplikasinya lagi harus merestart komputer kita. Aplikasi ini hanya bersifat pembelajaran saja untuk pengetahuan kita. Berikut Source Code aplikasinya menggunakan Delphi.

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.

Related Post:

l/Pemrograman

• Cara Membuat Database dengan Access 2007
• Fungsi Dasar SQL
• Cara Menambah Komponen Quick Reports pada Delphi 7
• IDE Delphi 7
• Istilah Dalam Database
• Data Module Pada Delphi
• Variabel dan Konstanta di Visual Basic
• Instal Delphi 7 Di Windows 7
• Belajar Delphi 7
• Membuat DBGrid Berwarna
• Cara Memasukan Record Ke Dalam ComboBox
• Cara Memasukan Flash ke Delphi 7
• Fungsi Dalam C++
• C++
• Membuat Digital Clock di Flash
• Konsep ADO pada Delphi