Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Кеша © (2007-12-23 14:41:00)
Здравствуйте
Хотелось бы узнать как это реализовать. То есть если моя программа уже запушена то ограничить её повторный запуск
Думаю правильно её сделать по поиску процессов, например если есть такой-то процесс то программа вторично открываемая закрывается но я не знаю как реализовать поиск по процессам
Заранее спасибо.

Кеша (2007-12-23 15:37:00) [1]
а теперь понятно
СПАСИБО niKo !!!

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

> Кеша (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:12:00) [3]

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

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

niKo (2007-12-23 15:10:00) [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:06:00) [5]
Подошла идее с созданием мьютекс- не знаю что это такое но например реализовал так при запуске программа проверяет некий файл при его отсутствии она создает его, а если он существует то программа закрывается, а при закрытии программы файл удаляется, и если программа закроется не произвольно (через диспетчер или комп вырубится) то будет очень плохо программа не удалит файл и после не будет запускаться :(
Пожалуй буду разбираться с ссылкой.

Григорьев Антон (2007-12-23 14:48:00) [6]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=904

Efir (2007-12-23 14:46:00) [7]
Посмотри в сторону мьютексов.
При запуске проги проверяешь создан ли мьтекс, если да, то закрываешь программу, нет - создаёш мьютекс.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »