XP Usermanagers 6.1 Open Source

[Luckie]

Source\common\MpuTools.pas

Da liegt sie bei mir auf den Rechner im Ordner der Version 6.1. Das ist meine letzte Version und die, die ich rausgegeben habe.

[Delphi-Laie]

Zitat von Luckie:

Source\common\MpuTools.pas

Da liegt sie bei mir auf den Rechner im Ordner der Version 6.1. Das ist meine letzte Version und die, die ich rausgegeben habe.

Ich nehme meine Aussage/Behauptung mit Bedauern zurück, sie ist doch dort in Deiner originalen Datai mputools.pas enthalten.

Die Windows-Suche, die in den Dateien suchen soll, hat, warum auch immer, nicht angeschlagen.

[Delphi-Laie]

Also, ich bin ja in Programmierdingen Pragmatiker (paßt das zur Delphi-Praxis?) und vereinfache deshalb immer soweit wie möglich.

Die zu 64 Bit nicht compilierbare Assembler-Funktion (ja, ich weiß, das wurde ja inzwischen umschifft) wird nur einmal im Projekt aufgerufen, nämlich in der Datei "mputools.pas" in der Zeile 1725. Entfernt man diese Funktion (bzw. kommentiert man sie aus, nichts soll schließlich verlorengehen), und man ändert in besagter Datei in der besagter Zeile den Ausdruck

StrIComp(Info.szCSDVersion, 'Service Pack 6') = 0

zu

Info.szCSDVersion = 'Service Pack 6'

, dann compiliert es wieder anstandslos, jedenfalls unter 32 Bit (Delphi 7). Hoffentlich ist das auch inhaltlich korrekt.

[Uwe Raabe]

Zitat von Delphi-Laie:

Hoffentlich ist das auch inhaltlich korrekt.

Nicht ganz:

Zitat:

Vergleicht zwei Strings ohne Berücksichtigung der Groß-/Kleinschreibung.

siehe http://docwiki.embarcadero.com/Libra...Utils.StrIComp

[Delphi-Laie]

Danke!

Ganz pragmatisch hätte ich dann mit upper- oder lowercase rumgemacht, sehe aber just, daß auch das in bestimmten Fällen seine Tücken hat (z.B. https://www.delphipraxis.net/183060-...ute-nicht.html).

Aber das führt in dieser XP-Usermanager-Diskussion nun auch allmählich zu weit.

[Codehunter]

Zitat von Delphi-Laie:

Also, ich bin ja in Programmierdingen Pragmatiker (paßt das zur Delphi-Praxis?) und vereinfache deshalb immer soweit wie möglich.

Die zu 64 Bit nicht compilierbare Assembler-Funktion (ja, ich weiß, das wurde ja inzwischen umschifft) wird nur einmal im Projekt aufgerufen, nämlich in der Datei "mputools.pas" in der Zeile 1725. Entfernt man diese Funktion (bzw. kommentiert man sie aus, nichts soll schließlich verlorengehen), und man ändert in besagter Datei in der besagter Zeile den Ausdruck

StrIComp(Info.szCSDVersion, 'Service Pack 6') = 0 zu

Info.szCSDVersion = 'Service Pack 6' , dann compiliert es wieder anstandslos, jedenfalls unter 32 Bit (Delphi 7). Hoffentlich ist das auch inhaltlich korrekt.

Nur mal so laienhaft gefragt: Warum prüft ihr die SP-Version über Stringvergleiche ab? Das geht doch eleganter. Siehe mein good old DelphiWorks 1.5 und dort in der dwWinSystem.pas die Funktion "dwNTServicePackMajorVersion" bzw. "dwNTServicePackMinorVersion"

[hhcm]

Weil dafür wieder die SysUtils gebraucht wird, oder?

[Codehunter]

Zitat von hhcm:

Weil dafür wieder die SysUtils gebraucht wird, oder?

Nö. Die relevanten Quelltexte können entnommen werden. Das ist letztlich ein simpler API-Call der einen Record füllt. Den auszuwerten ist dann ein simpler Integer-Vergleich.

[Luckie]

Warum ich das damals so gemacht habe, kann ich nicht mehr sagen. Aber irgendeinen Grund werde ich gehabt haben.

[Codehunter]

Zitat von Luckie:

Warum ich das damals so gemacht habe, kann ich nicht mehr sagen. Aber irgendeinen Grund werde ich gehabt haben.

Was dich (oder jemand der sich berufen fühlt) nicht daran hindern sollte es heute besser zu machen