Delphi 10.2 - system exception – с переносом кода в библиотеку

[KBO]

Кажется нашел проблему,
я в одном из модулей dll подключаю "Vcl.DBGrids;" - и когда я его подключаю возникает ошибка

[Terran]

Спасибо, что выложили проект. Я его собрал и сделал всё, как вы писали, но у меня вообще никаких ошибок не появилось, всё работает... Запускал под отладкой как приложение, так и саму dll (если использовать скомпилированную dll из архива, то ошибки есть). Возможно у вас какие-то файлы в Delphi изменены?

Сообщение от KBO

Цитата:
Сообщение от Terran
В процедуре OPEN_MAKE_DOC при вызове shellexecute у вас передаётся не проинициализированный handle (лучше такое имя для переменной не использовать);
Насчет этого, в help по "shellexecute" (- что это хендл родительского окна), как проинициализировать handle, если в dll даже окна нет? Или сюда нужно передавать тогда дескриптор окна вызывающего приложения?

Всё зависит от поставленной задачи. Если есть необходимость принимать сообщения от запущенного приложения, то его нужно указывать. Если нет (операция не связана с окном), то можно указать 0.

[KBO]

А я нашел, отчасти вы были правы,
и впоследствии, все получилось вот так:

создание объекта с "CoInitialize(Nil)";

function CreateWord: boolean;
//create word application
begin
  CoInitialize(Nil);
  CreateWord := true;
  try
    Words_Templs := CreateOleObject('Word.Application');
  except
    begin
      showmessage('Пакет Microsoft Office не найден');
      CreateWord := false;
    end;
  end;
End;

работа с ним (у меня не было разрушения объекта "Unassigned", не знаю как у вас работает - значит везет)
и разрушение с "Unassigned" и "CoUninitialize;"

function SaveDocAs(ANamePath, ANameFile: string; AOpenDoc: integer):boolean; export;
//save created doc
{
LOpenDoc
  0 - not open created doc
  1 - open created doc
}
var
  LPath: string;
begin
  SaveDocAs := true;
  try
    begin
      Words_Templs.ActiveDocument.SaveAs(ANamePath+'result_doc.rtf');
      CloseDoc;
      Close_Document(0);
      if AOpenDoc = 1 then
        OPEN_MAKE_DOC(ANamePath, 'result_doc.rtf', '', 0, LPath);
      Words_Templs := Unassigned;
      CoUninitialize;
    end;
  except
    SaveDocAs := false;
  end;
end;

далее посмотрим, этот кусочек только часть dll, сейчас его вставлю и посмотрю...

Еще раз спасибо