Cara membuat program agar dijalankan hanya satu kali eksekusi

Tutorial kali ini adalah cara membuat program agar dijalankan hanya satu kali eksekusi. cara ini awalnya adalah ketika saya membuat program yang hanya boleh dieksekusi sekali saja, dan ketika program yang saya buat dieksekusi kembali yang kedua kalinya maka program tidak akan jalan selama program tersebut belum ditutup pada eksekusi pertama. mudah-mudahan tidak bingung bahasanya.....


cara ini diterapkan pada file .dpr. anda tinggal sisipkan script berikut :

program OneInstance;

uses
  Forms, Windows, Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  CreateMutex(nil, True, 'bla bla bla');
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      {Tuliskan perintah apa yg akan dilakukan jika program
       ternyata sudah dijalankan}
      ShowMessage('Programnya sudah dibuka euy...');
      halt;            // Menutup aplikasi
    end;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

coba saja sendiri anda jalankan program tersebut dan sebelum di tutup coba anda jalankan kembali program tersebut maka eksekusi yang kedua tidak akan dilaksanakan.
program jenis ini bisa anda lihat pada program registry, coba anda buka program registry dengan menekan win+R dan ketikan "regedit", jika sudah terbuka anda buka kembali program registry dengan cara yang sama maka hasilnya cuman satu program registry yang berjalan.
selamat mencoba