RxVersionInfo.ProductName

[Little_Roo]

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

Label1.Caption := RxVersionInfo1.ProductName

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

[alexs]

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

[Little_Roo]

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

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

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

[Ichthyander]

Примерно так

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

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


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

[svk12]

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

[Ichthyander]

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

[svk12]

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

[Little_Roo]

Программно их есть смысл только читать

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