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.

0 Response to " Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!