Hallo,
ich habe den Code von Himitsu (#5) und HolgerX (#8) ausprobiert: Kompilieren sowohl für
Win32 als auch für Win64 gehen,
ABER
Delphi-Quellcode:
InfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), InfoSize);
if InfoSize > 0 then
begin
…
ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [LangID, CodePage]));
end;
InfoSize > 0 ist NUR bei
Win32 DEBUG der Fall, NICHT bei Release; Bei Win64 überhaupt nicht.
Das heißt:
ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [LangID, CodePage]));
wird nur ein einziges Mal angezeigt, in den restlichen 3 Fällen überhaupt nicht.
Ist das etwa beabsichtigt, oder mache ich etwas falsch?
[Edit]
Und HolgerX's
Delphi-Quellcode:
for Idx := 0 to Pred(TranslationLen) do
begin
ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [Translation.Lang, Translation.CharSet]));
Inc(Translation);
end;
ergibt eine Endlosschleife
