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