Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7

GROSIR KAOS POLOS & KAOS MURAH

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;  

CreateMutex(nil , true , 'Object Mutex');
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      ShowMessage('Program sudah di buka');
    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.  

program Project1;

uses
  Forms,
  windows,
  dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  CreateMutex(nil , true , 'Object Mutex');
  if GetLastError = ERROR_ALREADY_EXIST then
    begin
      ShowMessage('Aplikasi sudah di buka');
    end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
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.

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini

• Tweet
• Share

Baca artikel lainnya :