Feststellen, welches Betriebssystem läuft (D2010 /Win7)

[Kurt56]

Feststellen, welches Betriebssystem läuft funktionierte unter D7 mit:

Delphi-Quellcode:

function TInfoForm.GetWindowsVersion : string;
var myOsVersion : _OSVERSIONINFO;
begin
myOsVersion.dwOSVersionInfoSize := 148;
GetVersionExA(myOsVersion);                  //<Fehlermeldung unter D2010 unter Windows 7
case myOsVersion.dwPlatformId of
  1:begin
    if (myOsVersion.dwMajorVersion =4 ) and
       (myOsVersion.dwMinorVersion = 0) then
         Result := 'Windows 95';
    if (myOsVersion.dwMajorVersion =4 ) and
       (myOsVersion.dwMinorVersion = 10) then
         Result := 'Windows 98';
    end;
  2:begin
    if (myOsVersion.dwMajorVersion =3 ) then
         Result := 'Windows NT 3.51';
    if (myOsVersion.dwMajorVersion =4 ) then
         Result := 'Windows NT 4';
    if (myOsVersion.dwMajorVersion =5 ) and
       (myOsVersion.dwMinorVersion = 0) then
         Result := 'Windows 2000';
    if (myOsVersion.dwMajorVersion =5 ) and
       (myOsVersion.dwMinorVersion = 1) then
         Result := 'Windows XP';
    end;
  else
    Result := 'unbekannt';
  end;
end;

[DCC Fehler] Info1.pas(53): E2250 Es gibt keine überladene Version von 'GetVersionExA', die man mit diesen Argumenten aufrufen kann

Kann jemand sagen, wie die OS-Version unter D2010 abgerufen werden kann?