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

[Codehunter]

@Terence: Danke für die Mithilfe, aber wie schon im Eröffnungspost geschrieben: Die Protokolle bitte ausschließlich per PN an mich, nicht hier in den Thread. Wird sonst einfach zu unübersichtlich.

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

Zitat von DeddyH (Beitrag 1199117)

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" :-D

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

[Bernhard Geyer]

Zitat:

Zitat von hathor (Beitrag 1274550)

Laut MS gibt es WINDOWS 8.0-Versionen, die NICHT 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?

Quelle?

Wenn dürfte das über den Lizenzschlüssel geregelt sein.