Membuat Program Yang Hanya Dapat Dijalankan Satu Kali Menggunakan Delphi


Request by DewaSakit😎

Ada kalanya pada saat pembuatan program, kita ingin program yang kita buat hanya dapat dijalankan atau diexecute satu kali, dalam artian selama program tersebut berjalan, program tersebut tidak dapat dijalankan ulang atau diexecute lagi, hanya boleh satu instan yang berjalan pada sistem.

Gunakan fungsi CreateMutexA yang terdapat pada Windows Unit

Lalu sisipkan di event onCreate Form

Berikut code selengkapnya

Uses Windows

procedure TForm1.FormCreate(Sender: TObject);
var appID:THandle;
begin
appID:=CreateMutexA(nil, false, PChar('my_app_ID'));
if (appID<>0) and (GetLastError = ERROR_ALREADY_EXISTS ) then begin
  ShowMessage('Tidak Dapat Menjalankan Aplikasi Ini 2x, 
  Silahkan Tutup Aplikasi Yang Sudah Berjalan Terlebih Dahulu.');
  Halt;
end;
end;

Enjoy…😎