Agar Program Tidak Bisa di Run 2 Kali Delphi

Supaya Program tidak bisa dieksekuisi 2x caranya sangat sederhana
Buka Project.dpr dengan notepad++ atau text editor lainya, atau bisa juga pada project manager pilih view source
maka akan terlihat coding dimana form di create..
pertama tambahkan pada bagian uses WinApi, dan Dialogs (Contoh dibuat menggunakan Delphi XE)

1 2 3 4 5 6 7 8 9 10

program penjualan; uses  class="skimlinks-unlinked">Vcl.Forms,  Winapi.Windows,  Vcl.Dialogs,  datamodul in 'datamodul.pas' {DM: TDataModule},  unitmenu in 'unitmenu.pas' {fmenu},  unitcustomer in 'unitcustomer.pas' {fcustomer}, . . .

setelah menambahkan code diatas, selanjutnya sisipkan code ini setelah begin, sebelum Application.Initialize;

1 2 3 4 5 6 7 8 9 10 11 12 13 14

. . . {$R *.res} begin  CreateMutex(nil,True,'PROGRAM_NAME');  if GetLastError = ERROR_ALREADY_EXISTS then  begin  MessageDlg('Program Already Running..',mtError,[mbOK],0);  Halt;  end;  Application.Initialize;  Application.MainFormOnTaskbar := True;  Application.CreateForm(TDM, DM); . . .

Pada bagian :  CreateMutex(nil,True,’PROGRAM_NAME’);
Program_name ganti dengan nama program yg kitabuat + extensinya misal :
CreateMutex(nil,True,’Project1.exe’);
kemudian bisa di cek dengan menge-run program 2x, jika berhasil akan tampak seperti gambar