[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

[DeddyH]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

function CheckWinVer(CompareMode : TCompareMode; CompareWinVer : TWindowsVersions) : Boolean;
var
  wvi : TWindowsVersionInfo;
begin  
  {$IFDEF USE_VCL}
    wvi := TWindowsVersionInfo.Create(nil);
  {$ELSE}
    wvi := TWindowsVersionInfo.Create;
  {$ENDIF}
  try
    case CompareMode of
      Like        : Result := wvi.WindowsVersion =  CompareWinVer;
      GreaterThan : Result := wvi.WindowsVersion >  CompareWinVer;
      GreaterLike : Result := wvi.WindowsVersion >= CompareWinVer;
      LessThan    : Result := wvi.WindowsVersion <  CompareWinVer;
      LessLike    : Result := wvi.WindowsVersion <= CompareWinVer;
      OutSide     : Result := wvi.WindowsVersion <> CompareWinVer;
      else
        Result := False;
    end;
  finally
    FreeAndNil(wvi);
  end;
end;