Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
15-1197744591
GeLLeR
2007-12-15 21:49
2008.01.20
Протестите прогу


15-1196834343
vajo
2007-12-05 08:59
2008.01.20
Можно как-то вычислить, кто в сети сообщения аськи прослушивает?


2-1197973757
Kolan
2007-12-18 13:29
2008.01.20
Что возвращает функция EditConnectionString?


15-1197708759
homm
2007-12-15 11:52
2008.01.20
Помогие устранит пробел в образовании.


2-1198404022
Blind Guardian
2007-12-23 13:00
2008.01.20
timer:longint absolute $0000:$046C;




   Наверх