Hallo,
das habe ich bereits entfernt.
Ich verstehe, dass du wenig Arbeithaben willst aber mein Ziel ist es nicht anderen Code zu übernehmen sondern meinen zum Laufen zu kriegen...
Der Fehler steckt im Aufruf im Konstruktor:
Delphi-Quellcode:
... // Diese liefert mir immer false, obwohl Informationen vorhanden sind.
if VerQueryValue(Pointer(ThisSourceFile),'\VarFileInfo\Translation',
Pointer(PCharSet),Len) then
begin
//LangCharset:= Format('%.4x%.4x',[LoWord(PCharset^),HiWord(PCharset^)]);
InfoAvailable:= true;
...
Ich denke die Wahl meiner Parameter und deren Initialisierung ist falsch. Ich weiß nur nicht was falsch ist. Auch nach durchsicht deines Codes habe ich den Fehler noch nicht gefunden.