AW: OS Version Windows 10 ermitteln.
Hallo,
die Tatsache, dass die Registry bei CurrentVersion bei Win 10 den falschen Wert 6.3 zurück gibt, zeigt doch, dass MS diesen Reg-Key nicht weiter pflegt Der Weg über CMD liefert dagegen immer das korrekte Ergebnis ohne Verrenkungen, zumindest so lange wie es CMD gibt! Auf die Diskussion, warum man/frau aus einem Programm heraus die aktuelle Windows-Version wissen will, möchte ich mich nicht einlassen. Schönen Sonntag Willie. |
AW: OS Version Windows 10 ermitteln.
Zitat:
Bliebe nur die Build-Nummer. Hier wäre dann ein IsMaxBuildNummer(xxx) ausreichend. Damit wäre man (aktuell) sicher tiefgreifende Updates mitzubekommen (müssten ja neue Buildnummern werden), müsst aber Supporttechnisch immer die aktuellen Builds vor der Veröffentlichung testen um sicher zu sen das es klappt. Hätte halt die Gefahr das eine Krankheit/Unfall/Urlaub dazu führt bei einer neuen Version diese nicht rechtzeitig freigeben zu können und dann ebenfalls verklagt zu werden (wegen unverhältnismäßige Behinderung der Nutzung) |
AW: OS Version Windows 10 ermitteln.
Zitat:
Weiterer Vorteil: Ich kann mich "selber hacken" denn sollte ich mal aus welchen Gründen auch immer nicht mit einem Release nachkommen, hab ich mir in der Zwischenzeit eine Notbremse eingebaut (Nachtrag zu #26)
Delphi-Quellcode:
...
with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; if OpenKeyReadOnly(rsMyPersonalWinVerRegKey) then aWinInfo.ProductName := ReadString('ProductName'); if OpenKeyReadOnly(rsWinVerRegKey) then begin if aWinInfo.ProductName = '' then aWinInfo.ProductName := ReadString('ProductName'); ... |
AW: OS Version Windows 10 ermitteln.
Zitat:
Das zeigt einmal mehr das man vor Gericht bestenfalls ein Urteil bekommt und das das Ganze nichts mit Moral, Intelligenz und/oder Ethik zu tun hat, sondern nur mit Geld und Macht. Mal ehrlich, das ist doch ein Scherz... Das erinnert an "Raucher verklagt ZigarettenIndustrie..." Zitat:
Richtig! Alles Mögliche !!! Was, ist der Hardwarelieferant außen vor oder was ??? Der Intelligenzquotient wurde für Richter nochmals angepasst... auf die Höhe unterhalb von Toilettenpapier... wat eyh... Interessant womit man so rechnen muß... |
AW: OS Version Windows 10 ermitteln.
Zitat:
Wenn jemand solches und ähnliches erlebt hat, würden mich Einzelheiten via PM, Mail oder Telefon durchaus interessieren ... |
AW: OS Version Windows 10 ermitteln.
Also ich nutze einfach nachfolgende Funktion. Sie funktioniert bei mit allen Windows-Versionen problemlos.
Delphi-Quellcode:
Der Code stammt urspünglich irgenwo von "theroadtodelphi" oder "delphifeeds" oder so.
function WMI_Get_Betriebssystem(const mit_Version:boolean=false):shortstring;
const[INDENT][/INDENT]wbemFlagForwardOnly = $00000020; var FSWbemLocator : OLEVariant; FWMIService : OLEVariant; FWbemObjectSet: OLEVariant; FWbemObject : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin Result:='?'; try FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', ''); FWbemObjectSet:= FWMIService.ExecQuery('SELECT Name, Version FROM Win32_OperatingSystem','WQL',wbemFlagForwardOnly); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; if oEnum.Next(1, FWbemObject, iValue) = 0 then begin result:=String(FWbemObject.Name); if Pos('|',result)>0 then result:=copy(result,1,Pos('|',result)-1); if Pos('Microsoft ',result)>0 then Try result:=trim( copy(result,Pos('Microsoft ',result)+10,40)); except end; if mit_Version then begin result:=result+' [ '+String(FWbemObject.Version)+' ]'; end; FWbemObject:=Unassigned; end; except try Result:=WMI_Get_Betriebssystem; except Result:='?'; end; end; end; Ralf |
AW: OS Version Windows 10 ermitteln.
Hallo,
ab Windows 10 wird auch in der Registry nicht mehr der richtige Wert angezeigt! Hat sich erledigt, zitiere mich selbst. |
AW: OS Version Windows 10 ermitteln.
Auch nicht mit passenden Manifest in der Anwendung? Da war doch mal was, wenn ich mich recht entsinne.
|
AW: OS Version Windows 10 ermitteln.
Also mit dem korrekten Manifest liefert GetVersionEx für die Major- und Minorversionsnummer unter Windows 10 den passenden Wert.
|
AW: OS Version Windows 10 ermitteln.
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz