![]() |
Falscher Product Type in OSVersionInfoEx
Moin,
ich ermittle wie folgt die Windowsversion
Delphi-Quellcode:
Was ich nicht verstehe: mein Programm läuft auf einem Windows 7 in einer virtuellen Maschine. Nach der Zeile (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 1) hab ich in OSInfo.wProductType ein 0 stehen. Ich würde hier eine 1 (=VER_NT_WORKSTATION) erwarten. Was mache ich falsch?
function GetOSVersionInfoEx : TOSVersionInfoEx;
var OSVersionInfo : TOSVersionInfo absolute Result; Done : Boolean; begin FillChar(Result, SizeOf(Result), #0); Done := False; try Result.dwOSVersionInfoSize := SizeOf(TOSVersionInfoEx); Done := GetOSVersionEx(Result); except end; if not(Done) then begin try FillChar(Result, SizeOf(Result), #0); Result.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); GetVersionEx(OSVersionInfo); except end; end; end; function GetWinVersion : string; var OSInfo : TOSVersionInfoEx; begin Result := 'Unbekannte Windows-Version'; OSInfo := GetOSVersionInfoEx; case OSInfo.dwPlatformId of VER_PLATFORM_WIN32s: begin Result := 'Win32s'; end; VER_PLATFORM_WIN32_WINDOWS: begin if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 0) then Result := 'Windows 95'; if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 10) then Result := 'Windows 98'; if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 90) then Result := 'Windows Millennium Edition'; end; VER_PLATFORM_WIN32_NT: begin if (OSInfo.dwMajorVersion = 4) and (OSInfo.dwMinorVersion = 0) then Result := 'Windows NT'; if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 0) then Result := 'Windows 2000'; if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 1) then Result := 'Windows XP'; if (OSInfo.dwMajorVersion = 5) and (OSInfo.dwMinorVersion = 2) then begin if GetSystemMetrics(SM_SERVERR2) <> 0 then Result := 'Windows Server 2003 "R2"' else if (OSInfo.wProductType = VER_NT_WORKSTATION) then Result := 'Windows XP x64' else if OSInfo.wSuiteMask = VER_SUITE_WH_SERVER then Result := 'Windows Home Server' else Result := 'Windows Server 2003'; end; if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 0) then begin if (OSInfo.wProductType = VER_NT_WORKSTATION) then Result := 'Windows Vista' else Result := 'Windows Server 2008'; end; if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 1) then begin if (OSInfo.wProductType = VER_NT_WORKSTATION) then Result := 'Windows 7' else Result := 'Windows Server 2008 R2'; end; if (OSInfo.dwMajorVersion = 6) and (OSInfo.dwMinorVersion = 2) then begin if (OSInfo.wProductType = VER_NT_WORKSTATION) then result := 'Windows 8' else result := 'Windows Server 2012'; end; if (OSInfo.wSuiteMask and VER_SUITE_PERSONAL) = VER_SUITE_PERSONAL then Result := Result + ' Home Edition' else Result := Result + ' Professional'; end; end; Result := Trim(Result + ' ' + OSInfo.szCSDVersion); end; Danke! Jens |
AW: Falscher Product Type in OSVersionInfoEx
Hat wahrscheinlich nichts mit deinem Problem zu tun, aber wenn deine Except-Abschnitte leer sind, kannst du gleich das ganze try-expect Konstrukt weglassen. Davon mal abgesehen, dass WinAPI Funktionen keine Delphi Exceptions werfen.
|
AW: Falscher Product Type in OSVersionInfoEx
Zitat:
|
AW: Falscher Product Type in OSVersionInfoEx
Soweit ich es sehe machst du nix falsch. Ich arbeite derzeit auch wiedermal an einer Klasse die wir hier benutzen und zumindest bis Windows 7 (inklusive), mache ich es genauso wie du.
Mir sind aber zwei Details aufgefallen:
Dann noch zwei Fragen:
|
AW: Falscher Product Type in OSVersionInfoEx
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
dieses Thema ist doch schon so alt wie Nachbar's Katze. Warum macht man denn nicht mal was, das jeder einfach verwenden kann, anstatt dass jeder sein eigenes Süppchen kocht? Da ich heute auch mal wieder an dem Thema dran war, hab ich das Beispiel ein bischen angepasst und das Ergebnis mal ran gehängt. Scheint alles zu funktionieren. |
AW: Falscher Product Type in OSVersionInfoEx
Zitat:
Und: Überraschung, Überraschung ... auch deine Unit darf man nicht legal von anderen verwenden, da sie dem deutschen Urheberrecht unterliegt und du keine Lizenzbedingungen (ala MIT, BSD, X11, zlib, GPL) angegeben hast unter denen die Unit verwendet werden darf. Also: selber besser machen :zwinker: ... Zitat:
Delphi-Quellcode:
wäre.
Result := (0 <> GetVersionInfoEx(...));
|
AW: Falscher Product Type in OSVersionInfoEx
Nur kurz, ich werde versuchen heute Abend Deine Fragen zu beantworten. Vorher schaffe ich es leider nicht.
|
AW: Falscher Product Type in OSVersionInfoEx
Zitat:
function GetOSVersionInfo(var OSInfo: TOSVersionInfoEx): boolean; begin FillChar(OSInfo,SizeOf(OSInfo),0); // OSInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfoEx); Result := GetVersionEx(OSInfo); end; und schon ist der Result false. Es klappt also immer noch :) Hab soeben noch den WindowsVersionString erweitert, weil man ja - wenn es beim Kunden klemmt - wissen muss, wo man bei neuen unbekannten Versionen nachbessern/erweitern muss: Zitat:
|
AW: Falscher Product Type in OSVersionInfoEx
Der Result wird durchaus
Delphi-Quellcode:
er wird aber niemals
false
Delphi-Quellcode:
sondern
true
Delphi-Quellcode:
not false
|
AW: Falscher Product Type in OSVersionInfoEx
Zitat:
$100 ist als Byte in der Tat identisch mit $0, weil alles oberhalb von 8bit abgeschnitten wird beim Typecast. Als BOOL (also 32bit-Wert) hingegen nicht. Daß eine 32bittige 0 einer 8bittigen 0 entspricht ist mir auch klar. Das war aber hier nicht die Frage, bzw. das Problem. Ich bin ja hier nicht so modern ausgestattet. Aber Delphi 2009 habe ich auch. Also hab ich es mal getestet. Entwarnung. Delphi hat natürlich mal wieder den Weg des geringsten Widerstands gewählt und offenbar Compiler-Magic dafür engagiert damit Delphianer solche Dummheiten nicht machen. Was vermutlich dann bei allen die korrektes Verhalten erwarten - mal wieder - zu Überraschungen führt. Aber egal, bin ja kaum noch auf Delphi unterwegs. Habe es übrigens hiermit getestet:
Delphi-Quellcode:
Übrigens bist du auf das Lizenzproblem noch nichtmal eingegangen. Danke (oder wegen) Urheberrecht kann sich eben nicht mal jeder deinen Code krallen, es sei denn du machst ihn unter einer entsprechenden Lizenz verfügbar.
program booltest;
{$APPTYPE CONSOLE} uses SysUtils, Windows; function DeinApiAufruf(): LongBool; begin Result := LongBool($100); end; function DeinDelphiWrapper(): Boolean; begin Result := DeinApiAufruf(); end; begin Write('Sagt: '); if DeinDelphiWrapper() then Writeln('True') else Writeln('False'); end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz