Membatasi Aplikasi Agar Berjalan Sekali Saja dengan CreateMutex

Kita kadangkala menginginkan agar program berjalan hanya satu instan saja di memori. Tentu kita punya beberapa alasan untuk hal ini. Mungkin program kita adalah program sensitif, sehingga hanya diperbolehkan menjalankan sekali saja per pengguna atau menghindarkan pengguna agar tidak bingung.

Pada Delphi, kita bisa memanfaatkan CreateMutex. Fungsi ini di deklarasikan di unit windows seperti ini

function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle;
begin
    Result := _CreateMutex(lpMutexAttributes, Integer(Boolean(bInitialOwner)), lpName);
end;

Dan unit ini mengambil fungsi CreateMutex dari file kernel32 milik sistim operasi Windows.

Program dibawah ini ditulis pada file source milik aplikasi yang kita buat. Caranya adalah sebagai berikut:

Buka menu Project >> View Source

Program Selengkapnya:

CreateMutex(nil,True,'APLIKASI_PPIC'); if GetLastError = ERROR_ALREADY_EXISTS then begin Application.MessageBox( 'Tidak diperbolehkan menjalankan aplikasi PPIC lebih dari sekali', 'Kesalahan',MB_ICONEXCLAMATION or MB_OK); halt; end;

Membatasi Aplikasi Agar Berjalan Sekali Saja dengan CreateMutex 2015-10-10T09:24:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer