Вверх ↑
Ответов: 5227
Рейтинг: 585
#1: 2020-06-26 20:42:39 ЛС | профиль | цитата
Вот так вот я библиотеку расчихляю, можно ещё попробовать раз из памяти погрузить, не уверен что получится правда
procedure CreateTmpAX;
var
Buffer: array[0..MAX_PATH] of Char;
AXData: PStream;
begin
GetTempPath(SizeOf(Buffer) - 1, Buffer);
AXTmpFile := Buffer + F1Book_library;
if not FileExists(AXTmpFile) then
begin
AXData := NewWriteFileStream(AXTmpFile);
AXData.Position := 0;
AXData.Write(LibAxData,LibAxSize);
AXData.Position := 0;
AXData.Free;
end;
end;


initialization
// создадим файл в временной папке
CreateTmpAX;
CoInitialize(nil);
finalization
CoFreeUnusedLibraries();
CoUninitialize();
FreeLibrary(DllHandle);
// удаляем при закрытии программы
DeleteFile(PChar(AXTmpFile));
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Редактировалось 1 раз(а), последний 2020-06-27 07:15:46