Welches OS?

[Delphi Star]

Wie kann man feststellen welches OS auf dem lokalen Computer ist, ich muss unter Windwos 98/2000/XP und ob ein anderes installiert ist unterscheiden können?

[Muetze1]

Moin!

Ein Beispiel

MfG
Muetze1

[Dax]

Siehe hier.

[Delphi Star]

@Muetze1: Und wie bekomme ich mit deiner Pas-Datei nur den OS-Namen ohne weitere Informationen
(z.B. Windwos 2000)

[Luckie]

Ich würde sagen Unit in Projekt einbinden und entsprechende Funktion aufrufen.

[Delphi Star]

Das weiß ich auch aber wenn ich das Unit mit dem Befhel der in der Beispiel app ist aufrufe funktioniert es, dann habe ich aber noch alle möglichen anderern informationen hinter dem namen des Betriebssystems und wenn ich die variablen aus der Aufruf funktion lösche lässt es sich nicht mehr kompilieren

[Muetze1]

Moin!

Für Abfragen in deinem Programm, z.B. so:

Delphi-Quellcode:

  If ( DeterminateOSVersion In [osvWinNT4, osvWin2000, osvWinXP, osvNewer] ) Then
    ShowMessage('OS ist Windows NT ff. oder neuer');

Bzw. direkt auf ein spezielles abfragen:

Delphi-Quellcode:

  If ( DeterminateOSVersion = osvWinXP ) Then
    ShowMessage('Ich mag XP nicht');

Wenn du einfach nur einen einfachen String haben willst mit dem OS Namen, dann z.B. so:

  ShowMessage( ConvertOSVersionTypeToString(DeterminateOSVersion) ); Ansonsten gibt es ja noch die Detailfunktion, wie in der Beispielapplikation, die dir alle Teilinformationen im einzelnen zurück gibt und gleichzeitig einen detaillierten String mit Informationen:

Delphi-Quellcode:

Var
  OSName,
  OSType,
  OSCSD,
  OSVersion,
  OSBuild,
  OSInfo : String;
begin
  ShowMessage( DetailedOSVersionString(OSName, OSType, OSCSD, OSVersion, OSBuild, OSInfo) );
end;

MfG
Muetze1