Friday , 19 October 2018
Home » Delphi » Source code membuat aplikasi yang running hanya satu di delphi 7

Source code membuat aplikasi yang running hanya satu di delphi 7


Berikut source code aplikasi untuk membuat aplikasi yang kita buat tidak bisa dijalankan lebih dari 1.

pada kali ini kita akan menggunakan sebuah fungsi  yang sdh disediakan, yaitu fungsi CreateMutexA yang terdapat pada Windows Unit.

pada form yang kita buat sisipkan coding pada event onCreate Form :

berkut source code  lengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IDaplikasi:THandle;
begin
  IDaplikasi:=CreateMutexA(nil, false, PChar('id_aplikasi')); //id_aplikasi bisa diganti sesuai nama aplikasi 
  if (appID<>0) and (GetLastError = ERROR_ALREADY_EXISTS ) then
    begin
      ShowMessage('Aplikasi sudah dijalankan');
      Halt;
    end;
end;

end.

Trimakasih sudah berkunjung di website pribadi saya.
 

About

Leave a Reply

Your email address will not be published. Required fields are marked *

*

Timber by EMSIEN 3 Ltd BG