Kako da zabranam da ne moze da se startuva apliakcija napravena vo Delphi poveke od ednas
zabrana za povekekratno startuvanje na aplikacija vo Delphi
Zaključano
Zakačeno
Izmeni .dpr fajl ovako:
Code (delphi):
program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
CreateMutex(nil, False, 'Project1'); //moguca samo jedna instanca
if GetLastError = ERROR_ALREADY_EXISTS then //aplikacije
Halt;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
CreateMutex(nil, False, 'Project1'); //moguca samo jedna instanca
if GetLastError = ERROR_ALREADY_EXISTS then //aplikacije
Halt;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Fala na pomosta