Ich bitte um euer aller Mithilfe (Pflege meiner Windows-Versionsliste)

[DeddyH]

[OT] DelphiWorks kenne ich noch aus Spotlight-Zeiten, hätte nie gedacht, dass daran noch weitergearbeitet wird [/OT]

[Codehunter]

Zitat von DeddyH:

DelphiWorks kenne ich noch aus Spotlight-Zeiten, hätte nie gedacht, dass daran noch weitergearbeitet wird

Sagen wir mal, in gewisser Weise ist es zusammen mit Spotlight "offiziell" eingeschlafen.

Ich kam irgendwann an den Punkt, wo ich mit weiten Teilen der Sourcen selbst nicht mehr zufrieden war, rein qualitativ gesehen. Allerdings war DelphiWorks zu dem Zeitpunkt schon so komplex, dass ich nicht mehr die Zeit fand, alles zu bereinigen.

So habe ich die Bibliothek nur noch für meine eigenen Zwecke immer mal wieder erweitert (wie jetzt hier die Windows-Erkennung).

Es hat auch nie jemand danach gefragt.

[Codehunter]

So, es wurde mal wieder Zeit in der Sache was zu aktualisieren. immerhin gibts ja seit Gestern "Windows 10"

Tja und dabei gab es gleich den ersten *PLONK*: Zwar meldet sich die Win 10 Tech Preview in der DOS-Box mit Version 6.4.9841, GetVersionEx dagegen liefert ein 6.2.9200. Wer das Win10-ISO schon laufen hat möge doch bitte mal so nett sein, die Version mit dem angehängten Tool auslesen und mal eine kurze Rückinfo zu geben.

Selbiges gilt auch für Windows 8.1 und Server 2012 R2, die ich in der Versionstabelle noch nachgepflegt habe.

Danke!

Grüße
Cody

PS: Nebenbei ist zumindest dieser Teil von DelphiWorks jetzt kompatibel zu XE4 und x64.

[jensw_2000]

Identified Product: Microsoft Windows Server 2012 Standard Edition
Identified Product ID: $00000007 (7)
64 Bit OS: NO
--------------------------------------------------
VersionInfoEx.dwOSVersionInfoSize: $0000009C (156)
VersionInfoEx.dwMajorVersion: $00000006 (6)
VersionInfoEx.dwMinorVersion: $00000002 (2)
VersionInfoEx.dwBuildNumber: $000023F0 (9200)
VersionInfoEx.dwPlatformId: $00000002 (2)
VersionInfoEx.szCSDVersion:
VersionInfoEx.wServicePackMajor: $0000 (0)
VersionInfoEx.wServicePackMinor: $0000 (0)
VersionInfoEx.wSuiteMask: $0110 (272)
VersionInfoEx.wProductType: $02 (2)
VersionInfoEx.wReserved: $00 (0)
--------------------------------------------------
SystemInfo.dwOemId: $00000009 (9)
SystemInfo.wProcessorArchitecture: $0009 (9)
SystemInfo.wReserved: $0000 (0)
SystemInfo.dwPageSize: $00001000 (4096)
SystemInfo.dwActiveProcessorMask: $000000FF (255)
SystemInfo.dwNumberOfProcessors: $00000008 (8)
SystemInfo.dwProcessorType: $000021D8 (8664)
SystemInfo.dwAllocationGranularity: $00010000 (65536)
SystemInfo.wProcessorLevel: $00000006 (6)
SystemInfo.wProcessorRevision: $00003E04 (15876)

[jensw_2000]

Identified Product: Microsoft Windows 8 Enterprise Edition
Identified Product ID: $00000004 (4)
64 Bit OS: NO
--------------------------------------------------
VersionInfoEx.dwOSVersionInfoSize: $0000009C (156)
VersionInfoEx.dwMajorVersion: $00000006 (6)
VersionInfoEx.dwMinorVersion: $00000002 (2)
VersionInfoEx.dwBuildNumber: $000023F0 (9200)
VersionInfoEx.dwPlatformId: $00000002 (2)
VersionInfoEx.szCSDVersion:
VersionInfoEx.wServicePackMajor: $0000 (0)
VersionInfoEx.wServicePackMinor: $0000 (0)
VersionInfoEx.wSuiteMask: $0100 (256)
VersionInfoEx.wProductType: $01 (1)
VersionInfoEx.wReserved: $00 (0)
--------------------------------------------------
SystemInfo.dwOemId: $00000009 (9)
SystemInfo.wProcessorArchitecture: $0009 (9)
SystemInfo.wReserved: $0000 (0)
SystemInfo.dwPageSize: $00001000 (4096)
SystemInfo.dwActiveProcessorMask: $00000FFF (4095)
SystemInfo.dwNumberOfProcessors: $0000000C (12)
SystemInfo.dwProcessorType: $000021D8 (8664)
SystemInfo.dwAllocationGranularity: $00010000 (65536)
SystemInfo.wProcessorLevel: $00000006 (6)
SystemInfo.wProcessorRevision: $00002C02 (11266)

[jensw_2000]

Ähm.. 64BitOS - NO ??? Stimmt bei beiden nicht

[hathor]

Laut MS gibt es WINDOWS 8.0-Versionen, die NICHT UMSONST upgrade-fähig auf WIN 8.1 sind.
Es wäre sinnvoll, einen Hinweis einzufügen, ob die vorliegende Version upgrade-fähig ist.
Weiss jemand mehr darüber?

Ausserdem:
Welchen KEY hat die vorliegende Version?
Ist sie z.B. eine Volume licensing edition?

Das Programm sollte "etwas" mehr anzeigen als z.B. WINVER.exe...

[Codehunter]

Zitat von jensw_2000:

Ähm.. 64BitOS - NO ??? Stimmt bei beiden nicht

Gefahr erkannt, Gefahr gebannt

Mit dem hier sollte das jetzt stimmen. Was mich mit deinen Infodumps wundert: Win8 (nicht 8.1) und Server 2012 (nicht R2) melden sich auch schon mit Version 6.2.9200? Kannst du bitte mal schauen was die DOS-Box bei dir zu dem Thema sagt?

[holliesoft]

Zitat von Codehunter:

So, es wurde mal wieder Zeit in der Sache was zu aktualisieren. immerhin gibts ja seit Gestern "Windows 10"

Tja und dabei gab es gleich den ersten *PLONK*: Zwar meldet sich die Win 10 Tech Preview in der DOS-Box mit Version 6.4.9841, GetVersionEx dagegen liefert ein 6.2.9200. Wer das Win10-ISO schon laufen hat möge doch bitte mal so nett sein, die Version mit dem angehängten Tool auslesen und mal eine kurze Rückinfo zu geben.

GetVersionEx ist deprecated seit Windows 8.1:
GetVersionEx function

[Bernhard Geyer]

Zitat von holliesoft:

Zitat von Codehunter:

So, es wurde mal wieder Zeit in der Sache was zu aktualisieren. immerhin gibts ja seit Gestern "Windows 10"

Tja und dabei gab es gleich den ersten *PLONK*: Zwar meldet sich die Win 10 Tech Preview in der DOS-Box mit Version 6.4.9841, GetVersionEx dagegen liefert ein 6.2.9200. Wer das Win10-ISO schon laufen hat möge doch bitte mal so nett sein, die Version mit dem angehängten Tool auslesen und mal eine kurze Rückinfo zu geben.

GetVersionEx ist deprecated seit Windows 8.1:
GetVersionEx function

Wir benutzen immer noch diese API. Diese liefert aber alte Versionnummern wenn in Anwendungsmanifest nicht steht die Kompatiblität mit der entsprechenden Version bestätigt wird. Und dies Info muss für Vista, Win7, Win8, Win8.1 und jetzt Win10 jeweils über eine entsprechende GUI drin stehen.