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. 

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

wah makasih mas, saya dulu pernah cari2, sampai terlupakan :D

alhamdulillah kalau begitu... semoga mas g melupakannya lagi

Wah terjawab nih apa yang pernah saya cari mas Eko, thx semoga kerjanya lancar2 aja mas..bravo

@budi_bunga Thanxs juga... kalau mas jeli, mas bisa kembangkan sesuai dengan kebutuhan mas silahkan coba otak-atik kode program diatas.

Wah terjawab nih apa yang pernah saya cari mas Eko, thx semoga kerjanya lancar2 aja mas..bravo

koq posting sama mas..... biar jumlah postingnya banyak ya.... he....2x

berhasil mas eko.. tapi bisa ga klo prognya ga bisa dijalanin lagi setelah di restart.. trus kalo trialnya lebih dari 1x bisa ga ?!

kalau mas jeli, mas bisa kembangkan sesuai dengan kebutuhan mas silahkan coba otak-atik kode program diatas.

dari contoh program diatas pasti mas bisa deh.... ayo mas... kamu bisa.... ato kalau masih susah, saya kasih clue nih... -->> GlobalFindAtom buat parameternya dalam betuk array

Teman-teman..... ketemu lagi dengan kiriman artikel saya. Kali ini saya akan membawakan artikel

kalo kirim artikel mbok yao ke tempat yg semestinya: http://pascal-id.org/dpr/Submit_News.pas kalo yg ini khan di forum.. dan khusus untuk bung ekoindri, diriku akan selalu pasang status kejam on xiixixixix... xaaxaxa.. xuxuxuuxux... glex