Открытие файлов и повторный запуск программы

[m0dE^]

Здравствуйте! Есть форма, на которой имеется PageControl с Memo. Следующий код предотвращает повторный запуск программы:

var hMutex: THandle;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  if WaitForSingleObject(hMutex, 0) <> 0 then Application.Terminate;
end;
...
initialization
  hMutex:=CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName)));

finalization
  CloseHandle(hMutex);

Если текстовый документ скинуть, допустим, на ярлычок программы, то создастся вкладка и откроется этот документ.

Как мне сделать, чтобы вторая копия по-прежнему не создавалась, а новый скинутый текстовый файл на ярлычок создавал новую вкладку в уже открытой программе?

[mss]

Следующий код предотвращает повторный запуск программы

Да ничего подобного)
Ты сам-то поразмысли - если он "предотвращает", значит этот код никогда выполнен быть не может.. А если он будет выполнен, то значит вторая копия была таки запущена и какое-то время работала)

[m0dE^]

открылась и закрылась

[mss]

Сообщение от m0dE^

открылась и закрылась

Если открылась, значит запустилась.
А раз запустилась , значит твое утверждение о том что этот код "предотвращает запуск" заведомо ложно)

[m0dE^]

вопрос-то чуть в другом заключается..

[mss]

Если ты про добавление в свой PageControl новой вкладки с мемо , то делается это до смешного просто:

var
NewPage: TTabSheet;
NewMemo: TMemo;
..
NewPage := TTabSheet.Create(MyPageControl)
NewMemo := TMemo.Create(NewPage);
NewMemo.Parent := NewPage;
NewMemo.Visible := True;
NewPage.PageControl := MyPageControl;

[m0dE^]

все это реализовано уже..
скинул текстовый файл на ярлычок - открылась программка моя, создалась вкладка с Memo и содержимым текстового файла.. Захотел я еще один файлик открыть. скинул - снова открылась программка, создалась вкладка с содержимым текстового файла №2.. (А мне так не надо)

Надо, чтобы просто Текстовый файл №2 был добавлен в первую копию программы в новой вкладке! имеено, чтобы добавление вкладок было при перетаскивании доков на ярлык программы

[KAMENYKA]

Сообщение от m0dE^

все это реализовано уже..
скинул текстовый файл на ярлычок - открылась программка моя, создалась вкладка с Memo и содержимым текстового файла.. Захотел я еще один файлик открыть. скинул - снова открылась программка, создалась вкладка с содержимым текстового файла №2.. (А мне так не надо)

Надо, чтобы просто Текстовый файл №2 был добавлен в первую копию программы в новой вкладке! имеено, чтобы добавление вкладок было при перетаскивании доков на ярлык программы

Как я понял у тебя открывается новый экземпляр экзешника, тобиш доступ к переменным открытого со вкладкой ты уже не получишь(в принципе можно но сложновато) тогда остается хранить где ни буть файл к примеру txt, куда ты будеш записывать пути и имена файлов уже открытых в твоей программе.

[mss]

Иными словами, тебе надо чтобы 2-й экз-р программы перед терминированием известил 1-й экз-р о необходимости открыть такой-то документ в новой вкладке своего пейджконтрола)

Способов море.
Самый простой - послать окну формы с пейджконтролом 1-го экземпляра некое сообщение WM_COPYDATA (см. SendMessage).

Примеров дельфийской реализации интерпроцессного взаимодействия с использованием сообщения WM_COPYDATA в Интернете как грязи.

[m0dE^]

если несложно, напишите пример