Библиотека и приложение в чужом процессе

[Johnson]

Здравствуйте, уважаемые!

Помогите решить проблемму...

Есть библиотека. Она внедряется в чужой процесс, там исполняет второй поток, а поток исполняет

  Application.Initialize;
  Application.CreateForm(TMainForm,MainForm);
  Application.Run;

Всё работает хорошо. Но только до того момента, как процесс-носитель "попросится выйти". Дальше вылетает ошибка о недопустимом дескрипторе окна.

Как я понял, дело в том, что в процессе крутится два потока, которые считают себя главными. И при завершении процесса "сидят на одном горшке".
Понять я понял, а вот как исправить это - нет.
Помогите пожалуста.

Исходник с простейшим примером в аттаче..
В аттаче лежит:
ДллИньектор - запускает calc.exe с внедренной библиотекой.
Calc.exe - копия обычного виндового колька.
исходники библиотеки.

PS: ExitProcess(0); и прочие "заверШАЛОСТИ" не предлагайте. Процесс-носитель возмущается на такое завершение. Имею ввиду не калькулятор, а тот процесс, для которого это готовится. Lineage II

PPS: Сразу оговорюсь - это не вирусня. Пишу бота для вышеупомянутой "лодва"

[SNUPY]

Я решение не предлагаю, а просто спрашиваю. А у вас отдельный поток создается как представитель класса TThread?

[Johnson]

Да. И после создания приложения - освобождается.

[SNUPY]

Опять же просто дискутирую. Вам обязательно что бы все было по одним процессом?

[Johnson]

Да, это крайне желательно. Я рассматривал вариант, когда библиотека пихает данные боту по сокету и в мессагах. Но у этих вариантов куча своих минусов. Нужно именно приложение внутри процесса.

Хотя даже не обязательно приложение. Мне нужно, чтоб библиотека могла открыть окно из чужого процесса. Желательно, чтоб это окно можно было создать в дезайн-тайме...

[veniside]

а бы попробовал такое:

var
  g_saveDllProc: TDLLProc;

// --  --
procedure dllMain(reason: DWORD);
begin
  case (reason) of

    DLL_PROCESS_DETACH: begin
      //
      // вот тут надо послать мессагу Application, чтобы он сделал себе Free();
      // т.к. этот фри должен вызваться не в этом потоке, а в том, в котором Application был создан
      // (как раз в нём сейчас крутится ProcessMessages(), куда и должно приземлиться наше сообщение)
    end;

  end;
  //
  if (assigned(g_saveDllProc)) then
    g_saveDllProc(reason);	// call saved entry point procedure
end;

begin
  // код инициализации DLL
  //
  g_saveDllProc := DllProc; // save exit procedure chain
  DllProc := TDLLProc(@dllMain);	  // install LibExit exit procedure
end.

[Johnson]

Видимо, я ещё не проснулся... Не получается Вашим способом...
При закрытии несущего приложения вылетает ошмбка "Неизвестное программное исключение".
Покажите пожалуйста на моем примере...

[ArtGrek]

в твоем проекте фаилов *.dfm быть не должно?)

[mss]

Бред несусветный.

procedure TNewThread.Execute;
begin
  Application.Initialize;  // повторная инициализация одного и того же объекта Application, но уже в ДРУГОМ потоке !
  Application.CreateForm(TMainForm,MainForm);
  Application.Run;
  Terminate; // сам-то понимаешь для чего это и как работает ?)
end;

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

mss, вообще в нормальных условиях выполнение до Terminate не дойдет.
точнее дойдет когда оборвется цикл обработки сообщений.(Application.Run)