Код: Выделить всё
procedure UpdateProgram(URL, Path, UpdateProgramName, ArchiveName: PChar); stdcall; external 'MYDLL.DLL';
Код: Выделить всё
procedure TFormUpdate.thrTerminate(Sender: TObject);
begin
FormUpdate.Close; // Форма, вызванная из DLL не закрывается вообще
FormMain.PMMExit.Click; // Полнейший бред
end;
...
// FormMain
procedure TFormMain.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;