несколько одновременно работающих копий программы - ?

[Evgenii]

exe файл Delpfi можно запустить несколько раз. тем самым получется несколько одновременно работающих копий. вот как бы такую ситуацию недопустить? чтобы когда была запущена одна копия, вторую запустить уже было нельзя?

[ОДИНОЧЕСТВО В СЕТИ]

...
uses syncobjs;
...
var
  CheckEvent: TEvent;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAM_CHECKEXIST');
  if CheckEvent.WaitFor(10) <> wrSignaled then
  begin
    // Сюда попадаем если одна копия уже запущена.
    // Можно, например, сообщить об этом пользователю.
    Self.Close; // Здесь можно завершить программу или сделать еще что-нибудь.
  end;
end;

DW там еще 12 способоввот тут еще посмотри

[Demien]

Я ползуюсь таким способом:

С помощью блокнота открыть файл ‘название проэкта'.dpr и ввести примерно следующее:
(В делфи после этого при компиляции программа не запускается! Только с “*.exe”)

program Project1;

uses
  Forms,
  Windows,    \\Добавить 
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

 var
  hwnd: THandle;
  begin
   hwnd:= FindWindow('TForm1', 'Тут ставишь название окна программы (Caption)');
    if hwnd = 0 then
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end
 else
SetForegroundWindow(hwnd);
end.

[Stilet]

Обсуждалось неоднократно