[iisyyyys]

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

[cotseec]

если ищется процесс раз и два (дальше гугл), если не допустить повторный запуск
Провожу тренинги по пользованию гуглом, первое занятие бесплатно, ваше первое занятие окончено

[iisyyyys]

но у меня нету формы, именно процесс

[NumLock]

изучай внимательней!

[Alegun]

Гугл весьчь хорошая, но есть ешьчо и Рамблер сиречь Яндекс, там тоже первый ван бесплатно Способов не запуска второй копии навалом, можно и атомом, можно и мьютексом проверять, но возможен и простой способ - это поиск запущенного приложения в среде по имени, если оно есть, то закрываем двойника принудительно. Энто всё прописывается в файле проекта (*.dpr), до старта проги:

Код:

program Project1;
uses
  Forms,
  Windows,  SysUtils, // Эти юниты нужно добавить
  Unit1 in 'Unit1.pas' {Form1};

 var
HwndPrev:HWND;

  {$R *.res}

begin

  Application.Initialize;
  
 // Сначало ищем в системе главную форму по имени   
  HwndPrev := FindWindow('TForm1','Form1'); // в кавычках прописываем имя формы и её заголовок 

  if HwndPrev <= 0  then // и если её нет, то... 

  begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;

  // запускаем приложение,

  end else // а если оно уже запущено, то грохаем двойника:
  begin
  SetForegroundWindow(HwndPrev); // тут передаём фокус мастеру, можно это и не делать 

  Application.Terminate; 

  end;
   end.

[NumLock]

предлагаешь одно:

Сообщение от Alegun

поиск запущенного приложения в среде по имени

а делаешь другое:

Сообщение от Alegun

HwndPrev := FindWindow('TForm1','Form1'); // в кавычках прописываем имя формы и её заголовок

к тому же:

Сообщение от iisyyyys

у меня нету формы

читай внимательней!)

[RusMaXXX]

Код:

uses
  SyncObjs;

procedure CheckDbl;
begin
  CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAM_CHECKEXIST');
  if CheckEvent.WaitFor(10) <> wrSignaled then
  begin
    MessageBox(0,'Программа будет закрыта','Инфа',0);
  end;
end;

[Alegun]

УК RusMaXXX, подскажи пжлст, SyncObjs из какого пакета?

[NumLock]

\Rtl\Common\

[iisyyyys]

нужно добавить
var
CheckEvent: TEvent;

[iisyyyys]

Код:

uses
SyncObjs;
procedure CheckDbl;
var
CheckEvent: TEvent;
begin
  CheckEvent:= TEvent.Create(nil, false, true, 'MYPROGRAM_CHECKEXIST');
  if CheckEvent.WaitFor(10) <> wrSignaled then halt;
end;