У многих прог такая вещь реализована, т.е. нельзя запустить программу несколько раз если она уже запущена. Хочу у своих прог тоже так делать.

Вот что я пытаюсь изобразить:

Код

procedure TfMain.FormCreate(Sender: TObject); begin  if findwindow(nil,'Project1.exe')<>0 then close end;

Но прога всеравно запускается повторно.

а ты уверен что окно именно так называется? запусти WinSight и посмотри

Код

program Project1; uses   Forms,   Windows,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} function Check: boolean; var   HM: THandle; begin   HM:= OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');   Result:= (HM <> 0);   if HM = 0 then HM:= CreateMutex(nil, false, 'MyOwnMutex'); end; begin   if Check then Exit;   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:22

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:22

я пользуюсь таким вариантом:

Код

var   Form1: TForm1;   CheckEvent:TEvent;   implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin CheckEvent:=TEvent.Create(nil,false,true,'MYPROGRAM_CHECKEXIST'); IF CheckEvent.WaitFor(10)<>wrSignaled then    begin    Application.Terminate;    end; end; ...

Quadr0

Цитата(Quadr0 @ 25.6.2005, 18:51)

begin   if hPrevInst then   begin     ShowMessage('Program is already running!');     Halt;   end

Застрял в Win16? ;)
Подъитоживая все предложенные методы: создаешь именнованный объект ядра. Если в процессе создания выледзла ошибка ERROR_ALREADY_EXISTS (объект с заданным именем уже существует) то завершаешь программу. Имя объекта должно быть уникальным, так чтот лудше использовать для именнования guid'ы

Всем спасибо. Принцип понятен

Нужно зделать Семафор! Простая структура+делает всё что тебе нужно!
Добавлено @ 15:37
в FormCreate пропиши

Код

CreateSemaphore(nil,0,1,'1C db PackIT!Mon');         {Cоздаём семафор и проверяем, не возникла ли при этом ошибка.          Если возникла - значит, такой семафор уже существует, то есть уже есть          запущенный экземпляр программы.}      if GetLastError=Error_Already_Exists then       begin        MessageDlg('Приложение уже запущено!',mterror, [mbok], 0);        Application.Terminate;       end;

Добавлено @ 15:39
'1C db PackIT!Mon' - это любое слово, например название твоей проги. если у тебя несколько прог, вписывай разные слова, а то одна не даст другую запустить!

Я делаю как сказал Poseidon но еще добавляю сообщение, что программа уже запущена, работает 100%, но есть одна фигня, это то, что управление не передается уже запущенной программе Было бы хорошо, показать сообщение, а потом перейти к запущенному экземпляру программы.

для этого можеш посылать ей какое-нить сообщение ( WM_USER + N ) можеш event назначить...

Есть еще Atom, можно при запуске поги проверять его наличие, затем, если не найден, создавать его, а при выходе убивать!

Атом можно использовать , только одна трабла, при зависании процесса и последующем его гроханье через таскманагер, процесс более запустить не удастся

Romikgy, ты прав, чего-то я про это не подумал

В наборе RX есть для этого функция. Работает отлично ...

Сегодня столкнулся с тем, что нужно было не просто исключить повторный запуск, а весьма хитро исключить )

Разрабатываю репликатор, он цепляется к промышленному COM-серверу, и ложит в базу данных. Этот репликатор разрешено для запуска в двух экземплярах, но ! , в разных папках. К примеру один репликатор для турбогенератора, а другой для котлоагрегата ! ;)

Из этой ситуации, мне не подошел варинт с глобальным атомом, уж очень много мороки - вдруг юзер вырубиль репликатор через диспетчер задач, значит глобальный атом при запуске надо искать и спрашивать юзера, а первый ли он раз запускает этот репликатор.

Вобщем выставил требования таковыми:

1. Возможность запуска двух экземпляров репликатора, но с разных папок.
2. Из одной папки репликатор можно запустить только и только в одном экземпляре
3. Репликатор не должен зависеть от последствий аварийного выключения через диспетчер задач.


При данных требованиях, остановился на следующем коде, может кому и поможет:



hMutex - несмотря на то что это локальная переменная и казалось мы же теряем значение хэндла. Ну и что я спрошу ))) В конечном итоге, хоть через диспетчер задач, хоть через Application.Terminate хэндлы то убиваются - значит убивается и мьютекс ;)

Думаю, это решит проблемы новичков

Столкнулся с такой проблемой. Вроде бы программа не запускается дважды. Но! В терминальном режиме ни одна фича приведенная здесь не запускается. Подскажите, пожалуйста, как можно запретить запуск нескольких копий программы в терминальном режиме разными пользователе.
ЗЫ. Еще вопрос хоть не совсем в тему, но все же. Как запускать программу в качестве службы или под системой, т.е. еще до аутентификации пользователя

07pov23, берешь любой код с CreateMutex/Event/FileMapping и в имени объекта делаешь префикс 'Global\', т.е. вместо 'MyOwnMutex'(см. 3ий пост) становится 'Global\MyOwnMutex'. единственное, что надо бы проверку версии винды делать, ибо до w2k(вроде) такой префикс недопустим.

правила форума прочти. а так, как вариант - http://support.microsoft.com/kb/137890

Вся проблема в том, что как раз win2k и есть.

а в Висте в глобал очень мало кого пускают

Модератор: Пожалуйста, один топик - один вопрос.

 Правила форума: http://forum.vingrad.ru/index.php?act=boardrules