Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hi,
axo. Ich habe mich schon selber etwas 'verlaufen'. Und für mein Problem habe ich immer noch keine Lösung :(
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hallo NicoDE,
ich weiß nicht wie du darauf kommst? Der Fehler liegt definitiv im Aufruf der genannten Funktion, da diese immer false zurückliefert. Die Zugriffsmethoden sind bis dahin noch nicht im Spiel.
Aber vielleicht komme ich da ja noch hin ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hallo,
der Fehler scheint an folgender Stelle zu sein:
// z.B. 'CompanyName'
function TmyVersionInfo.GetKey(KeyName: String): String;
var
InfoLength: UINT;
LangCharSet: String;
begin
if InfoAvailable then
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hallo,
ich danke dir an dieser Stelle schon mal für deine Geduld.
Ich habe bereits mehrer Version dieser Klasse ausprobiert. Nur diese will einfach nicht gelingen.
Ich kann nicht erkennen, welche Parameter bei meiner Version für den Aufruf von 'VerQueryValue' nicht richtig sind.
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
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:
... // Diese liefert mir immer false, obwohl Informationen vorhanden sind.
if VerQueryValue(Pointer(ThisSourceFile),'\VarFileInfo\Translation',
...
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hallo,
ich dachte Du hast das nach meinem Quellcode implementiert? Ich verfüge bereits über Beispiele, wie man die Info ermittelt.
Ich würde gern wissen wo mein Fehler in meinem Quellcode liegt!
Hast Du da einen Tip?
Quellcode:
siehe dieses post
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hallo,
ich habe deine Einwände bedacht und geändert. Kannst Du mir die 'zusammengezimmerte Klasse' einmal zeigen? Ich habe Probleme das so zu verstehen...
Danke!
Forum: Object-Pascal / Delphi-Language
Delphi
by barnti,
20. Aug 2004
Hi,
nett von Dir aber ich möchte es auf diese Weise implementieren. Kannst Du zu meinem Code etwas sagen? Wo liegt mein Fehler?