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

Вниз

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

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

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


 
Rial ©   (2006-03-31 00:33) [1]

Странно, что работает.
Тебе нужно запускать приложение с одним именем, а после данной проверки менять на другое, основное. И искать нужно именно его.


Const AppCap="Admin";

//Caption:="TestCap"; - это установлено в свойствах формы.

If (FindWindow("TForm1",AppCap)<>0)then begin
SetForegroundWindow(FirstCopy);
Application.terminate;
end;
Caption:=AppCap;



А вообще на эту тему уже была долгая дискуссия где то недавно на этом форуме.


 
Германн ©   (2006-03-31 01:21) [2]


> А вообще на эту тему уже была долгая дискуссия где то недавно
> на этом форуме.

Что значит была? Она и сейчас "живее всех живых" в Основной"
http://delphimaster.net/view/1-1142855469/



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

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

Наверх




Память: 0.47 MB
Время: 0.046 c
2-1140954483
tio
2006-02-26 14:48
2006.04.16
AddIndex


1-1142348118
Германн
2006-03-14 17:55
2006.04.16
Сортировка в ListBox


15-1143188080
Ламот
2006-03-24 11:14
2006.04.16
Прошу высказаться по поводу фрилансерства в целом и по поводу


2-1143776369
pkm
2006-03-31 07:39
2006.04.16
Подскажите пожалуйста.


9-1126380945
Ricks
2005-09-10 23:35
2006.04.16
Создание текстуры поверхности как в WarCraft 3