Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
ВнизНе запускать два раза Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c