Membuat Program Yang Hanya Dapat Dijalankan Satu Kali Menggunakan Delphi

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

view source

print?

01	Uses Windows

02

03	procedure TForm1.FormCreate(Sender: TObject);

04	var appID:THandle;

05

begin

06	appID:=CreateMutexA(nil, false, PChar('my_app_ID'));

07	if (appID<>0) and (GetLastError = ERROR_ALREADY_EXISTS ) then begin

08	ShowMessage('Tidak Dapat Menjalankan Aplikasi Ini 2x,

09	Silahkan Tutup Aplikasi Yang Sudah Berjalan Terlebih Dahulu.');

10

Halt;

11

end;

12

end;