Главная страница
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.48 MB
Время: 0.019 c
2-1197896910
Magedon
2007-12-17 16:08
2008.01.20
D2007 *.drf


2-1197979621
Konstantin
2007-12-18 15:07
2008.01.20
Удаление (в цикле) лишних знаков в strin-говом значении


6-1170209410
Raptoridze
2007-01-31 05:10
2008.01.20
скрол в twebbrowser


15-1197531643
Alkid
2007-12-13 10:40
2008.01.20
Менеджмент достал.


15-1197825737
Lip
2007-12-16 20:22
2008.01.20
Ряд Тэйлора