Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-1087536523
leonidus
2004-06-18 09:28
2004.07.18
Как можно связать две не индексированные таблицы ?


14-1088325039
_student
2004-06-27 12:30
2004.07.18
Нужно при щелчке на рабочем столе вывести звезду


1-1089026900
MyName
2004-07-05 15:28
2004.07.18
SAVEKEY


14-1087048354
Семен Сорокин
2004-06-12 17:52
2004.07.18
Питерцы, а не собраться ли нам...


9-1080314417
dimych
2004-03-26 18:20
2004.07.18
Второй метод создания игровых карт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский