Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: 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 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
9-1080708227
max003
2004-03-31 08:43
2004.07.18
Как работают трейнеры для игр?


1-1089196233
CyBeR
2004-07-07 14:30
2004.07.18
Не будет ли это коряво???


3-1087479173
peypivo
2004-06-17 17:32
2004.07.18
firebird


14-1088359607
Sanek_metaller
2004-06-27 22:06
2004.07.18
Куда деваются клипы с 3MP3.ru


14-1088422144
Rem
2004-06-28 15:29
2004.07.18
Парадокс