[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

[DeddyH]

Das sieht man doch bereits am Aufruf des Constructors.

Delphi-Quellcode:

var wvi: TWindowsVersionInfo;
begin
  wvi := TWindowsVersionInfo.Create(self);
  try
    Edit_ComplString.Text :=  wvi.WindowsVersionsString;
    Edit1.Text := wvi.ServicePack;
    Edit2.Text := IntToStr( wvi.MajorVersion );
    Edit3.Text := IntToStr( wvi.MinorVersion );
    Edit4.Text := IntToStr( wvi.BuildNumber );
  finally
    wvi.Free;
  end;
end;

Aus dem Kopf getippt, müsste aber stimmen.