auslesen der windowsversion

[MathiasSimmack]

Ja. Aber das müsste dann wohl ein Mod tun?

A) weiß ich nicht, ob ich den Beitrag ändern kann.
B) selbst wenn, die Zeit ist mittlerweile abgelaufen.

[glkgereon]

is ja gut.....

[scp]

Zitat von NicoDE:

...es gibt kein 95C mit Minor 0 (auch das PSDK irrt sich manchmal (wollte ich damit sagen))

Sicher? Bei 95C hat sich doch nur die "Build" geändert: 4.00.1111 bzw. 4.0.0.1111.

[Muetze1]

Moin!

Zitat von mirage228:

Ähm, die Deklaration sieht so aus

function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall; Ich weiss nicht, wie du auf den Pointer kommst, onlinehome...

Ich weiss nicht, warum du den Pointer nicht siehst?? Ob man nun VAR hinschreibt oder ohne Var und einen Pointertyp dafür nimmt ist doch nun gehupft wie gesprungen...

MfG
Muetze1

[MathiasSimmack]

Der eigentliche Vorteil des Pointers dürfte wohl eher der sein, dass man entweder das alte oder aber auch das neue (erweiterte) "TOSVersionInfo"-Record benutzen kann.

[_master_]

Delphi-Quellcode:

function TMainForm.WinVer: String;
begin
Case Win32Platform of
VER_PLATFORM_WIN32s :
        Result := 'Windows 3.1';
VER_PLATFORM_WIN32_WINDOWS :
begin
        Result := 'Windows 95';
        if Win32MajorVersion = 4 then
                if Win32MinorVersion >= 90 then
                Result := 'Windows ME'
                else
        if Win32MinorVersion >= 10 then
                Result := 'Windows 98';
end;
VER_PLATFORM_WIN32_NT :
begin
        Result :='Windows NT';
        if Win32MajorVersion = 5 then
                if Win32MinorVersion >= 1 then
                Result := 'Windows XP'
                else
                Result := 'Windows 2000';
end;
else
        Result := 'Unknown OS';
end;
end;
{ * Aufrufen * }
procedure TMainForm.Button1Click(Sender: TObject);
begin
ShowMessage(WinVer);
end;

[NicoDE]

Zitat von scp:

Sicher? Bei 95C hat sich doch nur die "Build" geändert: 4.00.1111 bzw. 4.0.0.1111.

(wenn schon jemand diesen antiken Thread aus der Versenkung holt, kann ich auch die Frage beantworten )
Schon möglich dass ich mich geirrt habe. Zumindest die DLL Help Database (kernel32,dll) scheint dir recht zu geben.
Ich hatte die Information IIRC aus einem Knowledge-Base-Beitrag über Win9x-Versionen - allerdins weiss ich heute die KB-Nummer nicht mehr

Gruss Nico