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

[Codehunter]

Aufgrund der vielen Nachfragen zum Source habe ich mich entschlossen, DelphiWorks 1.5 freizugeben. Eigentlich war das Projekt 2004 eingeschlafen. Genauer gesagt habe ich damals das letzte Release (1.4) freigegeben. Für mich intern habe ich die letzten 9 Jahre die Version 1.5 weiter gepflegt.

Einige Anmerkungen dazu: DelphiWorks ist ursprünglich auf Delphi 5 Pro entstanden und dann auf D7 Pro migriert. Ich habe es nie auf neueren Delphis getestet. Man sollte auch wissen, dass einige Units zu einer Zeit entstanden sind, als ich grade mal ein halbes Jahr Delphi programmiert habe. Das merkt man an verschiedenen Stellen.

Den Quellcode zu DelphiWorks 1.5 findet man auf der Projektseite bei SourceForge.

Die Quellen der Testanwendung habe ich hier angehängt.

[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

[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.

[Bernhard Geyer]

Zitat von Codehunter:

... Zwar meldet sich die Win 10 Tech Preview in der DOS-Box ...

Seit wann hat Windows wieder eine DOS-Box? Dieses gibt es doch schon seit NT nicht mehr. Die letzte Version war AFAIK Windows ME.