Windowsversion (Win98) wird nicht korrekt angezeigt

[Ati]

Hi mal wieder ich,

ich habe von dsdt.info den Code benutzt um die Windowsversion zu ermitteln. Es läuft bei XP mal wieder sauber nur bei Windows 98 wird "Unbekannte Version" angezeigt!?! Gibt es da eine kleine Korrektur??

Delphi-Quellcode:

function GetWinVers: string;
begin
result:='Unbekannte Version';
case Win32Platform of
       1:// 9x-Reihe
         If Win32MajorVersion=4 Then
           Begin
             Case Win32MajorVersion of
               0: result:='Windows 95';
               10: result:='Windows 98';
               90: result:='Windows Me';
               end;
           end;

Ati

[Luckie]

Und was macht der Code von uns aus der Code-Library?

[omata]

Hallo Ati,

wieso fragst du Win32MajorVersion vor dem Case-Verteiler auf 4 ab?

MfG
Thorsten

[MathiasSimmack]

Weil das richtig war, Windows 9x hat nun mal die Versionsnummer 4. Das Problem ist, dass er "Win32MajorVersion" danach noch mal abfragt.

[MathiasSimmack]

Upps, ich sehe gerade, dass das tatsächlich falsch bei den Jungs von DSDT steht. Bitte mal Bescheid sagen.

[omata]

Ja, danke. Das war mir klar, ich wollte Ati auch nur auf den richtigen Weg bringen.

[MathiasSimmack]

Indem du seine Aufmerksamkeit auf den richtigen Teil der Funktion lenkst?

[omata]

Hallo?

was weiss ich, ob das richtig ist oder nicht. Dieser Punkt war für mich erstmal nicht wichtig, weil hier wohl ein ganz anderes Problem vorherschte. Wenn ich eine Variable/Funktion abfrage auf einen bestimmten Wert, und diese Variable/Funktion danach nochmal auf einen anderen Wert teste, dann kann das ja wohl nicht angehen oder?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?

Also wie auch immer ob die 4 da nun richtig war oder nicht ist erstmal völlig nebensächlich. Das eigentlich Problem ist an der Stelle bzw. eine effektive Zeile tiefer zufinden. Und ob das richtig ist oder nicht hast du ja wohl gerade selber rausgefunden, dass das auf anderen Seiten auch nicht einfach mal nachzuvollziehen ist.

Um den Fehler zu finden könnte man dann vielleicht mal auf die Idee kommen ihn zusuchen (debuggen?, suchen welcher Wert kommt dann da?)

Also mach mich hier nicht so an.

Thorsten

[Ati]

Sachte Sachte meine Herren. Der Hauptfehler lag ja wohl bei mir. C&P ist nunmal nicht immer so toll. Danke
@Luckie was meinst Du genau. Die neueste Version? Geht doch nicht mit meinem D3.

Ati

[Ati]

Sorry Luckie hatte nur den letzten Codebeitrag versucht und der klappt nicht. Der Rest schon. Habe aber auch noch was von Dir älteren Datums gefunden was auch gut funktioniert. Jetzt aber mal zum "Lerneffekt". Warum ist die Passage "Case...." den falsch??? Wie sollte dieser Teil den richtig lauten?

Ati

Edit: Erledigt muß natürlich "Minor" überprüft werden!!