Не запускать два раза

← →
zac (2004-07-03 07:26) [0]

Подскажите, плиз, как сделать так, чтобы мое приложение не запускалось два раза? Т.е. если уже запущено, то второе не открывается.

← →
GrayFace © (2004-07-03 08:01) [1]

if GlobalFindAtom("It is program by zac")<>0 then close;
atom:=GlobalAddAtom("It is program by zac");
OnDestroy:
GlobalDeleteAtom(atom);

← →
grom (2004-07-03 09:17) [2]

program Open;

uses Forms,Windows,Main in "Main.pas" {Form1};

{$R *.RES}

var HM:THandle;
function C:boolean;
begin
HM:=OpenMutex(MUTEX_ALL_ACCESS,false,"12345");
Result:=HM<>0;
if HM=0 then HM:=CreateMutex(nil,false,"12345");
end;

begin if C then begin
Application.MessageBox("Open","Open",MB_ICONEXCLAMATION);
Exit;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=904
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=20

Не запускать два раза Найти похожие ветки