Welche Windows XP Version

[HomerGER]

Hallo Wissende
Wie kann ich ermitteln wlche Win Version grade läuft
ich muss aber wissen ob eine Home oder Pro version läuft
weiss jemand rat

[Phoenix]

Hi,

das geht irgendwie über die Versionsnummer von Windows. Wie man die ausliest hatten wir hier schon ein paar mal, unter anderem hier.

Dann guck einfach mal, was bei Home und was bei Pro angezeigt wird und nimm das als Entscheidungskriterium.

[Duffy]

Hallo HomerGER,
das könnte Dir weiterhelfen
http://www.delphipraxis.net/internal...hlight=version
bye

[Phoenix]

@Duffy: Ätsch! Ich war schneller

Okay, mein Link war dezenter, aber immerhin

[HomerGER]

@Phoenix und Duffy danke erstmal
die Function hatte ich mir schon angeschaut
zur meiner Schande muss ich aber sagen nicht verstanden

mit welchen parametern ruf ich die Function auf
function GetVersionExA; external kernel32 name 'GetVersionExA';
function GetVersionExW; external kernel32 name 'GetVersionExW';
function GetVersionEx; external kernel32 name 'GetVersionExA';

wäre für jeden happen dankbar

[Luckie]

Gar nicht.
ShowMessage(GetWinVersion); Und wenn Delphi meckert, dann bindest du die Unit noch ein, die Mathias noch gepostet hat.

[Phoenix]

Hi nochmal,

ist eigentlich gar nicht so schwer:

Du übergibst einen variablen Parameter, nämlich einen vom Typ TOSVersionInfo. Das ding ist eigentlich ein record, in den dann von der Funktion daten über die Windowsversion reingeschrieben werden. Die kannst Du dann daraus auslesen.

Wenn Du Dir die Unit von Mathias anguckst steht da auch genau drin, wie Du aus dem Record die Werte ausliest.

[Luckie]

Das alles baruch er doch noch nicht mal. Mathias hat doch schon alles in der Funktion GetWinVersion gemacht.

[HomerGER]

ahhh jetzt geht es, hatte was vergessen (GetWinVersion Function)