Взаимодействие копий одного приложения

[Dima DDM]

У меня при запуске программы проверяется сколько копий этой программы запущено.Если больше 1 тогда выполняется запрос на запуск 2 копии.
Как сделать так чтобы если больше 1 копии то программа автоматически создавала в 1 копии новую вкладку(PageControl) Memo и загружала текст в этот memo ???

[Человек_Борща]

Вот отличная статья http://**************/index.php/arti...nnect-programs

[Пепел Феникса]

http://tinyurl.com/3uadubo
исправленная ссыль.

[Dima DDM]

Я если четсно попробовал,НО ничего не понял =(
Помогите пожалуйста мне с этой задачей!

[Человек_Борща]

Какой смысл давать тебе готовый код, если ты всеравно не поймешь как он работает, и как его применять т.к. ты не понял статьи которая описывает всю работу кода.

[Dima DDM]

Вот я коечто сделал ,но в процедуре все подчеркивает красным тк все компоненты находятся в Form1(unit1) а весь код что ниже в файле project1.dpr

  type TOpenInOldTStartApp = procedure;
var dll: cardinal;
    proc: TOpenInOldTStartApp;

{$R *.res}
var
h:HWND;
 
 procedure OpenInOldTStartApp;export; {процедура которая должна выполняться если 2 запущено больше 1 копии приложения}
 var
  NewTab:TsTabSheet;
    NewRichEdit: TsRichEdit;

  begin

  NewTab := TsTabSheet.Create(Form1.PageControl1);
  with NewTab do
  begin
    PageControl := Form1.PageControl1;
  pageControl.ParentFont:=false;
    Caption := Form1.ListNameEdit.Text+'          ';
  end;
 // создаем новый RichEdit
  NewRichEdit := TsRichEdit.Create(NewTab);
  with NewRichEdit do
  begin
    Parent := NewTab;
    Align := alClient;
    Clear;
NewRichEdit.ScrollBars:=ssBoth;
NewRichEdit.PopupMenu:=Form1.PopupMenu1;
NewRichEdit.ParentFont:=false;
NewRichEdit.Font.Name:='Tahoma';
NewRichEdit.Font.Size:=9;
NewRichEdit.WantTabs:=true;
if Form2.RichBorder1.Checked=true then
NewRichEdit.BorderStyle:=bsNone;
  end;

end;
exports OpenInOldTStartApp; // экспорт процедуры

    begin

 Application.CreateForm(TForm1, Form1);

  H:= CreateMutex(nil, True, PChar(Application.Title));
if GetLastError = ERROR_ALREADY_EXISTS then

begin

dll := LoadLibrary(PCHAR(ExtractFilePath(Application.ExeName)+Application.ExeName)); 
 ShowMEssage(ExtractFilePath(Application.ExeName)+Application.ExeName); // путь до приложения

   @proc := GetProcAddress(dll, 'OpenInOldTStartApp');  // вызов процедуры
  proc;

он подчеркивает

NewTab:TsTabSheet;
    NewRichEdit: TsRichEdit;

так как эти компоненты находятся в unit 1 =( Я не знаю что делать((

[Человек_Борща]

взять нужные юниты из Unit1 и подключить в dpr

[Dima DDM]

Все равно так не получается =( выдает ошибки(