Hallo zusammen,
ich bin jetzt auf
Rad Studio 10.1 Update1 umgestiegen und habe Probleme mit den Projektoptionen Versionsinformationen. Egal was ich dort eintrage, diese Werte werden in meinen neu erstellten Programmen nicht angezeigt. Als Sprache ist auch immer Englisch eingetragen. Ich lese die Werte wie folgt aus:
Code:
// Code hier aus dem Netz
// Uses JclFileUtils
var
FileName: TFileName;
I: Integer;
begin
//FileName := FileListBox1.FileName;
Form1.hide;
Form4.Show;
filename := ( ParamStr(0) );
Form5.Memo1.Lines.BeginUpdate;
try
Form5.Memo1.Lines.Clear;
if VersionResourceAvailable(FileName) then
with TJclFileVersionInfo.Create(FileName) do
try
for I := 0 to LanguageCount - 1 do
begin
LanguageIndex := I;
Form5.Memo1.Lines.Add(Format('[%s] %s', [LanguageIds[I], LanguageNames[I]]));
Form5.Memo1.Lines.Add('');
//Form4.Memo1.Lines.Add(StringOfChar('-', 80));
Form5.Memo1.Lines.AddStrings(Items);
Form5.Memo1.Lines.Add(BinFileVersion);
Form5.Memo1.Lines.Add(OSIdentToString(FileOS));
Form5.Memo1.Lines.Add(OSFileTypeToString(FileType, FileSubType));
Form5.Memo1.Lines.Add('');
end;
Form5.Memo1.Lines.Add('Translations:');
for I := 0 to TranslationCount - 1 do
Form5.Memo1.Lines.Add(VersionLanguageId(Translations[I]));
//Memo1.Lines.Add(BooleanToStr(TranslationMatchesLanguages));
finally
Free;
end;
finally
Form5.Memo1.Lines.EndUpdate;
end;
end;
Die eingetragenen Werte sind nach dem Speichern des Projektes in der
IDE auch da, siehe Anhang, aber nicht in meinem Programm.
Hat jemand einen Tipp für mich.
Gruß Rainer