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 ExplorerShare On
No comments:
Post a Comment
Silahkan masukkan komentar sobat, komentar sobat sangat berarti buat saya