Welcome

Welcome, thanks to look my blog

Friday 18 April 2014

Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7

Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7

Selamat pagi menjelang siang agan-agan.Pada postingan kali ini , saya akan membahas mengenai Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7.Maksudnya !?Adakalanya kita hanya ingin menjalankan aplikasi yang kita buat hanya satu kali.Contohnya regedit windows yang hanya di jalankan satu kali.Berbeda dengan notepad , yang bisa di buka beberapa kali.Bila kita mengharapkan hal yang serupa untuk aplikasi yang kita buat , maka inilah caranya.Kenapa ini penting !? Bayangkan bila aplikasi database yang anda di buat di buka lebih dari satu kali.Tentunya berpotensi menyebabkan error.Dan kita tidak ingin itu terjadi.Mari kita mulai
Pertama , buka borland Delphi 7 anda.Lalu simpan aplikasi tersebut dimana saja sesuai selera anda.Pilih tab project -> view source.Maka akan muncul jendela baru pada layar bersi source project utama kita.Tambahkan kode berikut sebelum baris Application.Initialize.
  1. CreateMutex(nil , true , ‘Object Mutex’);  
  2.   if GetLastError = ERROR_ALREADY_EXISTS then  
  3.     begin  
  4.       ShowMessage(‘Program sudah di buka’);  
  5.     end;  
Jangan lupa tambahkan windows dan dialogs pada klausa uses.Kode lengkapnya seperti ini setalah di tambahkan kode diatas.
  1. program Project1;  
  2.   
  3. uses  
  4.   Forms,  
  5.   windows,  
  6.   dialogs,  
  7.   Unit1 in ‘Unit1.pas’ {Form1};  
  8.   
  9. {$R *.res}  
  10.   
  11. begin  
  12.   CreateMutex(nil , true , ‘Object Mutex’);  
  13.   if GetLastError = ERROR_ALREADY_EXIST then  
  14.     begin  
  15.       ShowMessage(‘Aplikasi sudah di buka’);  
  16.     end;  
  17.   Application.Initialize;  
  18.   Application.CreateForm(TForm1, Form1);  
  19.   Application.Run;  
  20. end.  
Jalankan dan simpan aplikasi anda.Setelah itu , buka folder tempat anda menyimpan aplikasi.Lalu double-klik file exe hasil kompilasi program tadi.Pada saat aplikasi di jalankan , coba anda double-klik lagi file exe tersebut.Harusnya , muncul pesan error berisi pesan diatas.Sekian tutorial kali ini , semoga bermanfaat.
 
sumber : http://aulia.allalla.com/1/2010/12/menjalankan-aplikasi-hanya-satu-kali-di-delphi-7/#more

No comments:

Post a Comment