Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

Запрет на запуск уже открытой программы   Найти похожие ветки 

 
Кеша   (2007-12-23 14:41) [0]

Здравствуйте
Хотелось бы узнать как это реализовать. То есть если моя программа уже запушена то ограничить её повторный запуск
Думаю правильно её сделать по поиску процессов,  например если есть такой-то процесс то программа вторично открываемая закрывается но я не знаю как реализовать поиск по процессам
Заранее спасибо.


 
Efir   (2007-12-23 14:46) [1]

Посмотри в сторону мьютексов.
При запуске проги проверяешь создан ли мьтекс, если да, то закрываешь программу, нет - создаёш мьютекс.


 
Григорьев Антон ©   (2007-12-23 14:48) [2]

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


 
Кеша   (2007-12-23 15:06) [3]

Подошла идее с созданием мьютекс- не знаю что это такое но например реализовал так при запуске программа проверяет некий файл при его отсутствии она создает его, а если он существует то программа закрывается, а при закрытии программы файл удаляется, и если программа закроется не произвольно (через диспетчер или комп вырубится) то будет очень плохо программа не удалит файл и после не будет запускаться :(
Пожалуй буду разбираться с ссылкой.


 
niKo   (2007-12-23 15:10) [4]

program Programm;

uses
 Windows,
 Forms,
 M_FORM in "M_FORM.PAS" {Form1};

{$R *.res}

begin
CreateMutex(nil, False, "myMutex");  
if GetLastError = ERROR_ALREADY_EXISTS then halt;


 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.


 
Кеша   (2007-12-23 15:12) [5]


> M_FORM in "M_FORM.PAS" {Form1};


А это где достать?


 
niKo   (2007-12-23 15:25) [6]


> Кеша   (23.12.07 15:12) [5]
>
>
> > M_FORM in "M_FORM.PAS" {Form1};
>
>
> А это где достать?


.dpr файл знаеш) открой его и сразу после begin вставь из [4] две жирные строчки

за > M_FORM in "M_FORM.PAS" {Form1}; < не переживай


 
Кеша   (2007-12-23 15:37) [7]

а теперь понятно
СПАСИБО niKo !!!



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

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

Наверх




Память: 0.45 MB
Время: 0.046 c
2-1197971940
Indigo
2007-12-18 12:59
2008.01.20
Частотный букварь текста


15-1197359482
андр
2007-12-11 10:51
2008.01.20
MS SQL Server 2000


15-1197341553
Slider007
2007-12-11 05:52
2008.01.20
С днем рождения ! 11 декабря 2007 вторник


15-1196653587
Думкин
2007-12-03 06:46
2008.01.20
Головоломки профессора Головоломки. Гершензон


15-1197968507
авыф
2007-12-18 12:01
2008.01.20
вставить функцию в FastReport





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский