XP Usermanagers 6.1 Open Source

[himitsu]

Im Windows 10 funktioniert es ja immernoch ganz gut.

Und WinRT kann us sowieso egal sein, da Emba keine Lust hat das zu implementieren.

[Luckie]

Hallo,
ich wollte mal fragen, ob jemand mal eine 64-Bit Exe erstellt hat? Die Sourcen lassen sich hier https://github.com/jaenicke/usermanager runterladen. Wenn ich jaenicke richtig verstanden habe, soll das jetzt möglich sein.
Bzw. könnte mir bitte jemand eine 64-Bit Exe kompilieren und mir zur Verfügung stellen? Wäre super nett, da ich keine 64-Bit Delphi Version zur Verfügung habe.

[DieDolly]

An dieser Prozedur scheitert es in 64 Bit zu kompilieren

Delphi-Quellcode:

function StrIComp(const Str1, Str2: PChar): Integer; assembler;
asm
        PUSH    EDI
        PUSH    ESI
        MOV     EDI,EDX
        MOV     ESI,EAX
        MOV     ECX,0FFFFFFFFH
        XOR     EAX,EAX
        REPNE   SCASB
        NOT     ECX
        MOV     EDI,EDX
        XOR     EDX,EDX
@@1:    REPE    CMPSB
        JE      @@4
        MOV     AL,[ESI-1]
        CMP     AL,'a'
        JB      @@2
        CMP     AL,'z'
        JA      @@2
        SUB     AL,20H
@@2:    MOV     DL,[EDI-1]
        CMP     DL,'a'
        JB      @@3
        CMP     DL,'z'
        JA      @@3
        SUB     DL,20H
@@3:    SUB     EAX,EDX
        JE      @@1
@@4:    POP     ESI
        POP     EDI
end;

Durch das Hinzufügen von System.SysUtils kann man zwar die 32 Bit Version kompilieren und starten. Die 64 Bit startet aber nicht. Kompilieren lässt sie sich.

[Delphi-Laie]

Zitat von DieDolly:

An dieser Prozedur scheitert es in 64 Bit zu kompilieren

Delphi-Quellcode:

function StrIComp(const Str1, Str2: PChar): Integer; assembler
begin
...
end;

Durch das Hinzufügen von System.SysUtils kann man zwar die 32 Bit Version kompilieren und starten. Die 64 Bit startet aber nicht. Kompilieren lässt sie sich.

Die Funktion "StrIComp" befindet sich nicht in den originalen Quelltexten, die Luckie seinerzeit erstveröffentlichte (habe das Archiv natürlich noch). Weder in deklarierter, implementierter noch aufgerufener Form.

In welcher Quelltextdatei soll diese sich denn befinden?

[Uwe Raabe]

Zitat von Delphi-Laie:

In welcher Quelltextdatei soll diese sich denn befinden?

common\MpuTools.pas

Ist zumindest im GitHub Repo so.

[Delphi-Laie]

Zitat von Uwe Raabe:

Zitat von Delphi-Laie:

In welcher Quelltextdatei soll diese sich denn befinden?

common\MpuTools.pas

Ist zumindest im GitHub Repo so.

Danke (auch wenn nicht der eigentlich gefragte antwortete)!

Dann geht das wohl schon auf die Änderungen zurück, die dort in GitHub veröffentlicht werden.

Soweit ich weiß, hat Sebastian Jänicke dort seine Hand auf diesem Projekt.

[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