freepascal.ru

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

Label1.Caption := RxVersionInfo1.ProductName

Выводит вместо русских букв ????????? ??? ??????
Заметил недавно

Ок. Поправим.
А информацию о версии шатными средствами лазаря делал?

alexs писал(а):А информацию о версии шатными средствами лазаря делал?

Нет, ткните носом

Lazarus 0.9.31 r36017 FPC 2.7.1 i386-win32-win32/win64
RxNew из svn

Примерно так

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

uses ..., fileinfo;
...
begin
...
FileVersionInfo:=TFileVersionInfo.Create(nil);
FileVersionInfo.fileName:=ParamStr(0);
...
Memo1.AddStrings(FileVersionInfo.VersionStrings);
...
FileVersionInfo.Free; 


Добавлено спустя 9 минут 12 секунд:
Ну только нужно еще в UTF8 преобразовать строки

Может быть, проще?
Меню "Проект" - Параметры проекта - Информация о версии.

Видимо имелось ввиду все-таки программно

Пардон, а зачем?
Данные версии - это ресурс, добавляемый в тело бинарника программы при сборке.
Под виндой их можно просмотреть через свойства файла - Alt+Enter.
Программно их есть смысл только читать, ПМСМ...

svk12 писал(а):Программно их есть смысл только читать

Так это и требуется - Вывести в форму About