[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

Thema durchsuchen

Ansicht

Themen-Optionen

[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

Ein Thema von MagicAndre1981 · begonnen am 20. Aug 2007 · letzter Beitrag vom 18. Apr 2016

Antwort

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.546 Beiträge

Delphi 11 Alexandria

Re: [Kompo] TWIndowsVersionsInfo - Kompo zur Windowserkennun

4. Jan 2009, 16:10

Das sieht man doch bereits am Aufruf des Constructors.

zusammenfalten · markieren

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.

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen