Закрыть программу из DLL

[Shouldercannon]

К моему проекту привязана DLL

Код:

procedure UpdateProgram(URL, Path, UpdateProgramName, ArchiveName: PChar); stdcall; external 'MYDLL.DLL';

Эта DLL скачивает файл из Инета. После того как программа скачала архив нужно завершить работу приложения. Я работаю с DLL в первые.

Код:

procedure TFormUpdate.thrTerminate(Sender: TObject);
begin
  FormUpdate.Close; // Форма, вызванная из DLL не закрывается вообще
  FormMain.PMMExit.Click; // Полнейший бред
end;
...

// FormMain
procedure TFormMain.Exit1Click(Sender: TObject);
begin
  Application.Terminate;
end;

Как закрыть форму, вызванную из DLL и правильно завершить работу программы всё из той же DLL?

[zubr]

А зачем вообще форма и при том в dll для данной задачи?

[Shouldercannon]

На форме прогрессбар, показывающий сколько скачано.

[zubr]

Так а зачем через ж..пу?
Делай основное приложение из формы, а в dll функции закачки. Или вообще в основном приложении и функции закачки, тогда dll вообще не нужна.

[Shouldercannon]

Меня достало дублирование одного и того же кода по сто раз. Хочу его в DLL поместить и оттуда вызывать.

[zubr]

Тогда лучше:
1. Создать VCL-компонент.
2. Не вижу смысла целиком форму сохранять в повторяемый код.

[RXL]

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

Насчет прогресса - поддерживаю: VCL-компонент. Один раз пишешь, в разных программах используешь.

Если это отдельная форма, то для создания множества форм по одному классу убери в настройках проекта ее из автоматического создания и создавай нужное количество, когда и где тебе надо:
Простейший пример:

Код: (C++)

  TMyForm *frm = new TMyForm(this); // Предполагаю, что создается из другой формы - потому ее объявляю владельцем через this.
  frm->ShowModal();
  delete frm;

Если форма в обработчике Close выполнит

Код: (C++)

  Action = caFree;

то delete не потребуется - объект формы самоуничтожится (и освободит память) после выхода из нее.

Так же легко создаются MDI формы - только их не нужно уничтожать извне - только изнутри.

[Phodopus]

А у вас там еще и треды, в этой DLL что ли? Смущает префикс thr...

[Chaa]

Вам нужно в DLL передавать Application.Handle. Тогда Application.Terminate будет работать.

Код:

procedure UpdateProgram(Handle: THandle; URL, Path, UpdateProgramName, ArchiveName: PChar); stdcall;
begin
    Application.Handle := Handle;
    try
        // ваш код
    finally
        Application.Handle := 0;
    end;
end;