 |
 |
 |
 |
 |
|
Registriert seit: 3. Jun 2003 Ort: Thüringen 2.291 Beiträge Delphi 12 Athens |
#11
AW: XP Usermanagers 6.1 Open Source
3. Feb 2020, 12:56
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.  DelphiWorks 1.5 und dort in der dwWinSystem.pas die Funktion "dwNTServicePackMajorVersion" bzw. "dwNTServicePackMinorVersion"
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
|
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Baum-Darstellung
