[SpectraL]

Нужно чтобы запуск дублирующей копии программы приводил к отображению главного окна первой копии программы и завершению дублирующей копии программы. Хотелось бы чтобы код выглядел примерно следующим образом:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
if КОПИЯ_1_ЗАПУЩЕНА then
begin
ОТОБРАЗИТЬ_ГЛАВНОЕ_ОКНО_КОПИИ_1;
Application.Terminated;
end;

Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

[Mihalych]

http://tinyurl.com/3z7fypp

[NumLock]

попытался написать код, которого нет в google на каждом шагу:

Код:

program Project1;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

type
  PGlobalData = ^DWORD;

const
  FileMappingName: PChar = 'Shared_Memory_Project1';

var
  GlobalAtom: ATOM;
  FileMappingHandle: THandle;
  GlobalData: PGlobalData = nil;

begin
  FileMappingHandle:=CreateFileMapping($ffffffff, nil, PAGE_READWRITE, 0, SizeOf(DWORD), FileMappingName);
  GlobalData:=MapViewOfFile(FileMappingHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(DWORD));
  try
    if GlobalFindAtom('AtomProject1')=0 then
    begin
      GlobalAtom:=GlobalAddAtom('AtomProject1');
      try
        begin
          Application.Initialize;
          Application.CreateForm(TForm1, Form1);
          GlobalData^:=Application.Handle;
          Application.Run;
        end;
      finally
        GlobalDeleteAtom(GlobalAtom);
      end;
    end else SetForegroundWindow(GlobalData^);
  finally
    UnmapViewOfFile(GlobalData);
    CloseHandle(FileMappingHandle);
  end;
end.

[Gravitas]

Код:

program Project1;

 uses
 Forms,
 Unit1 in 'Unit1.pas' {Form1};

 {$R *.res}

 begin
if FindWindow('TForm1', 'Form1') <> then
 begin
 SetForegroundWindow(FindWindow('TForm1', 'Form1'));
 Application.Terminated;
 end;

 Application.Initialize;
 Application.MainFormOnTaskbar := True;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
 end.

[SpectraL]

Спасибо господа!

[SpectraL]

Почему в обоих вариантах, при запуске дублирующей копии, выполняется модуль с дополнительным потоком?

[angvelem]

И где дополнительные потоки?

[SpectraL]

Код:

unit Unit2;

interface

uses
  Classes;

type
  ttest = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var test: ttest;

implementation

procedure ttest.Execute;
var FileVar:TextFile;
begin
  AssignFile(FileVar, 'D:\Test.txt');
  Rewrite(FileVar);
  CloseFile(FileVar);
end;

initialization
 test := ttest.Create;

end.

[SpectraL]

При варианте Gravitas'a выполняется (при запуске дублирующей копии программы) процедура FormCreate главного модуля (с формой).

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('test');
end;

Это можно исправить изменив вариант Gravitas'а следующим образом:

if FindWindow('TForm1', 'Form1') > 0 then
begin
SetForegroundWindow(FindWindow('TForm1', 'Form1'));
Application.Terminate;
end else
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;