Нужно чтобы запуск дублирующей копии программы приводил к отображению главного окна первой копии программы и завершению дублирующей копии программы. Хотелось бы чтобы код выглядел примерно следующим образом:
Цитата:
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.
|