Второй экземпляр проги!

← →
serko © (2006-03-31 00:31) [0]

Ребят подскажите!
Я вот использую такой код для предотвращения запуска втрого экземпляра моей проги:
{firstcopy:=findwindow("Tform1","Admin");
if firstcopy <>0 then
begin
SetForegroundWindow(FirstCopy);
Application.terminate;
end;}
И все нормально работает, если бы не одно маленькое НО! Когда я в Делфи копилирую прогу то она сразу же при открытии зарывается! Я понимаю что это так и должно быть, но все же не удобно каждый раз лазит в *.dpr и брать этот код в кавычки! Может подскажите что можна сделать в данном случае?

← →
Сергей М. © (2006-03-31 08:49) [1]

> Когда я в Делфи копилирую прогу

А разве ее, прогу твою, можно компилировать еще где-то, кроме как в Делфи ?

> она сразу же при открытии зарывается

Сделай так :

{$IFNDEF DEBUG}
..Здесь твой код ..
{$ENDIF}

На время отладки добавь DEBUG в опции проекта "Conditional defunes"

← →
Johnmen © (2006-03-31 09:46) [2]

Предотвращение запуска втрого экземпляра проги делается совсем не так.
См. евенты(Event), симафоры(Semaphore) или мьютексы(Mutex)
А то, что ты привел - ошмёток кода активизации первого экземпляра...

← →
Сергей М. © (2006-03-31 09:58) [3]

> Johnmen © (31.03.06 09:46) [2]
> Предотвращение запуска втрого экземпляра проги делается
> совсем не так.
> См. евенты(Event), симафоры(Semaphore) или мьютексы(Mutex)

Будем точнее - ни ивенты, ни семафоры, ни мьютексы не решат задачу именно предотвращения запуска.

← →
Johnmen © (2006-03-31 10:39) [4]

Ну, наверное, такое буквоедство здесь неуместно...

"СССР первым в мире запустил исскусственный спутник Земли"
Мы же понимаем, что СССР не брал его в руки и не кидал в космос...

> буквоедство

Как бы там ни было, решение с FindWindow() в простейших случаях тоже имеет право на жизнь.

http://www.delphimaster.ru/articles/limit.html

Второй экземпляр проги! Найти похожие ветки