mit if-abfrage überprüfen ob das OS XP ist

[Delphi Star]

Wie kann man in einer if-Abfrage abfragen ob das OS XP ist :?:
Wichtig: Es darf nur XP erkennen, kein 2000 oder NT

[alcaeus]

Es gibt die Umgebungsvariablen. Es gibt auch eine mit dem Betriebssystem.
Zu den Umgebungsvariablen müsstest du eigentlich auch hier was finden.
BTW: Der interne Name für XP ist NT 5.1

Greetz
alcaeus

[Muetze1]

Moin!

U.a. meine OSVersion Unit auf meiner HP (Delphi->Projekte). Dort würde das dann so aussehen:

Delphi-Quellcode:

  If ( DeterminateOSVersion = osvWinXP ) Then
    // ist es XP...

MfG
Muetze1

[Luckie]

Kuck mal hier: http://www.luckie-online.de/Ablage/D...wsVersion.html

[iaby]

drückt mal strg+space und tipp dann mal Win32 ein.
dann kommt da irgendwas wie Win32Version oder so, weiß es grad net.
ist ne funktion, die dir nen string zurück liefert.
wenn das dann "Windows XP" ist, handelt es sich auch um XP!

gruss,
iaby

[Steve]

Zitat:

Zitat von iaby

drückt mal strg+space

Da passiert bei mir gar nix :gruebel: Irgendwas schein ich falsch zu machen :mrgreen:

Hab XP Prof

Stephan

[Muetze1]

Moin!

In Delphi - er will damit die Code Insight Hilfe aufrufen. Und die gibt es IMHO z.B. nicht in den Personal Editionen.

MfG
Muetze1

[iaby]

ich hab die delphi 7 personal und da gehts!
ist die von der c't CD!

[alcaeus]

Zitat:

Zitat von iaby

drückt mal strg+space und tipp dann mal Win32 ein.
dann kommt da irgendwas wie Win32Version oder so, weiß es grad net.
ist ne funktion, die dir nen string zurück liefert.
wenn das dann "Windows XP" ist, handelt es sich auch um XP!

gruss,
iaby

Win32Version gibts bei mir nicht, aber ich lasse die Windows Version so ausgeben:

Delphi-Quellcode:

ShowMessage('Windows '+
  IntToStr(Win32MajorVersion)+'.'+
  IntToStr(Win32MinorVersion)+
  ' Build '+IntToStr(Win32BuildNumber)+' '+
  Win32CSDVersion);

Mit dieser Abfrage kannst du also bestimmen, ob es sich um WinXP handelt:

Delphi-Quellcode:

if (Win32MajorVersion = 5) and (Win32MinorVersion = 1) then
  ShowMessage('Windows XP '+Win32CSDVersion);

greetz
alcaeus