Получить версию библиотеки

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Аватара пользователя
still
новенький
Сообщения: 40
Зарегистрирован: 01.10.2015 10:11:48

Получить версию библиотеки

Сообщение still »

Необходимо получить версию и дату модификации уже загруженной библиотеки .so из проекта, Lazarus+Linux.
Каким образом это можно сделать?

Дату попробовал получить вот таким образом:

Код: Выделить всё

function GetFileLastUpdate;
var
 lConfigFile:string;
 SearchFile:TSearchRec;
begin
 lConfigFile:=AFileName;
 if FindFirst(lConfigFile, faAnyFile, SearchFile)=0 then begin
  Result:=SearchFile.Time;
  FindClose(SearchFile);
 end else Result:=0;
end; 


Однако, если библиотека уже загружена, дата не меняется. Библиотеку перегружать нежелательно.
Аватара пользователя
still
новенький
Сообщения: 40
Зарегистрирован: 01.10.2015 10:11:48

Сообщение still »

Красноречивое молчание.... хорошо, задам вопрос иначе.
Есть ли возможность получить версию и дату сборки исполняемого бинарного файла?
Аватара пользователя
still
новенький
Сообщения: 40
Зарегистрирован: 01.10.2015 10:11:48

Сообщение still »

Снег Север писал(а):Show Application Title, Version, and Company


1. Благодарю. На через HINSTANCE для родительского бинарника заработало.
Однако, для моей задачи не подходит, так как версию SO так заполучить не получится. Процесс будет родительский.

2. Реализация printfileinfo не компилируется. У меня нет юнита fileinfo. На машине не нашел. Что это? Где взять?
Аватара пользователя
Снег Север
долгожитель
Сообщения: 3071
Зарегистрирован: 27.11.2007 15:14:47
Контактная информация:

Сообщение Снег Север »

still писал(а):У меня нет юнита fileinfo.

У меня он находится в ..\fpcsrc\packages\fcl-base\src\fileinfo.pp
Ответить