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: