Arsip: Menjalankan Aplikasi trial untuk 1 kali jalan


by EkoIndri in Serba Neka more 13 years ago 1705
Teman-teman..... ketemu lagi dengan kiriman artikel saya.

Kali ini saya akan membawakan artikel untuk melindungi program kita dari proses pembajakan atau mungkin untuk mengerjain temen2 kita atau mungkin juga untuk membuat program aplikasi yang bersifat Demo Version.

Namun sebelumnya saya ingin sampaikan bahwa ini bukanlah karya asli saya, melainkan karya dari Zarko Gajic dari forum www.delphi.about.com.

Dimana pada thread yang ada diforum www.delphi.about.com saya baca dan saya pikir perlu untuk saya sampaikan sama temen-temen yang berkunjung ke forum ini agar merasa bisa tambah ilmu dan tambah temen.

Langsung saja tanpa harus panjang-panjang kultumnya, silahkan temen-temen lihat kode program yang ada didalam file dpr dari program aplikasi yang akan kita buat nantinya.

Perhatikan baik-baik contoh program beserta penjelasan berikut ini :
// Nama program aplikasi yang anda buat
// anda bisa ganti sesuai dengan nama program yang anda tentukan
program OncePerSessionTrialTest;
uses
// anda harus menambahkan library windows, sebab secara default ketika kita
  // membuat program, library ini belum disertakan. Dengan demikian, anda harus
  // menambahkannya secara manual. Jangan sampai lupa ya....
  Windows,
Forms,
// ini pas dari unit program yang anda buat
  mainUnit in 'mainUnit.pas' {FormMain};
{$R *.res}
begin
Application.Initialize;
// Ketikkan kode program berikut ini untuk mengecek apakah program aplikasi
 // ini sudah pernah dijalankan atau belum

if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
// Kondisi ketika program aplikasi belum pernah dijalankan
  begin
GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;
Application.CreateForm(TFormMain, FormMain) ;
Application.Run;
end
else
begin
// Kondisi ketika program aplikasi pernah dijalankan
  Application.MessageBox(
'You can run the trial version '+
'of this application '+
'only once per Windows session!',
'Test Trial Protection') ;
end;
end.
Syntax Highlighted with https://pascal-id.org/syntax


Tambahan :

Perlu diketahui bahwa, anda dapat menjalankan program aplikasi ini hanya sekali untuk setiap session.

Semoga contoh kode program ini bisa menambah wawasan temen-temen yang ingin memperdalam pengetahuan mengenai bahasa pemrograman terutama delphi.

Regards,


Eko Indriyawan
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com