Главная страница
    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.032 c
14-1088583423
AlexG
2004-06-30 12:17
2004.07.18
Символ "а" с двумя точками сверху в HTML


1-1089051854
xman
2004-07-05 22:24
2004.07.18
memo или richedit


14-1088671960
Vlad Oshin
2004-07-01 12:52
2004.07.18
У кого нить осталась ветка, где мы стихи писали на паскале?


14-1088118720
D@rk
2004-06-25 03:12
2004.07.18
Макс Фрай ...


4-1086351014
fishca
2004-06-04 16:10
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский