Скачать: CL | DM;

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

← →
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.

---

← →
Григорьев Антон ©   (2004-07-03 12:17) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c