Probleme mit Readini$ unter Vista?????

[AHT]

OS = Vista Home Premium, SP2.
Profanversion = XProfan9
Folgender Quelltext...

Def Regopenkeyex(5) !"ADVAPI32","RegOpenKeyExA"
Def Regqueryvalueex(6) !"ADVAPI32","RegQueryValueExA"
Def Regclosekey(1) !"ADVAPI32","RegCloseKey"
Declare Reg$, Schlüssel$, Rules$
Declare RegHandle2&, RegError3&, RegSize&, Type2&, Wert2#
Windowstyle 31
Windowtitle "Registrytest"
Window 0,0-640,440
Schlüssel$ = "SYSTEM\CurrentControlSet\Services\"
Schlüssel$ = Schlüssel$ + "SharedAccess\Parameters\FirewallPolicy\FirewallRules"
Rules$="PerfLogsAlerts-DCOM-In-TCP"
Color 4,15
Set("ErrorLevel",-1)
Reg$=Readini$("HKEY_2", Schlüssel$, Rules$) 'Hier wird nichts ausgelesen!!!
Set("ErrorLevel",0)
Print "Readini$="+Reg$
Print ""
Color 2,15
RegError3&=Regopenkeyex($80000002, addr(Schlüssel$), 0, $1, addr(RegHandle2&))
IF RegError3&=0
 DIM Wert2#,2000
 RegSize&=2000
 RegError3&=Regqueryvalueex(RegHandle2&, addr(Rules$), 0, addr(Type2&), Wert2#, addr(RegSize&)) 'Hier erhalte ich einen Wert!!!
 Print "API=" + String$(Wert2#,0)
 Dispose Wert2#
 Regclosekey(RegHandle2&)
endif
While 1
 Waitkey
EndWhile

Die daraufhin erfolgende Ausgabe sieht bei mir so aus:


Bin vielleicht heute etwas mit Blindheit geschlagen - aber warum liest Readini$ hier den Wert nicht aus, die API tut das aber?
Mache ich irgendeinen Fehler?
Lesen neuere Profanversionen diesen Wert aus der Registry korrekt aus?
Hier mal die EXE als Download zum Vergleich...

Wichtig: Die Sache funktioniert nur unter Vista, unter XP gibt es den Key nicht!

[AHT]

PS: Die bei Readini$ erscheinende Messagebox habe ich mit Set(Errorlevel,-1) deaktiviert. Der String im Titel der Messagebox ist unter
Vista nicht komplett lesbar. Ich habe den mit TNT ausgelesen und der lautet:

REGISTRY: "PerfLogsAlerts-DCOM-In-TCP" nicht in "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\Firewa llRules" gefunden.

Kann mich mal jemand aufklären ?

[horsthorn]

@Andreas
So sieht es unter WIN-7 RC aus:

[AHT]

DANKE HORST!
Ja, genauso - Fehler in XProfan????

[AHT]

@Horst: Womit getestet - mit der EXE oder dem Quelltext?

[horsthorn]

das erste mit dem Quelltext und jetzt noch mal mit der EXE-Datei

[AHT]

Danke!

Nochmals meine Frage: Warum findet Readini$ den Schlüssel nicht?

[horsthorn]

Zitat von AHT

Danke!

Nochmals meine Frage: Warum findet Readini$ den Schlüssel nicht?

Gute Frage ! - Nächste Frage !

[Frabbing]

Ich gehe mal davon aus, das Roland auch die API benutzt?

[Jac de Lad]

Vielleicht wird der Schlüssel nicht gefunden, weil nicht mit den benötigten Rechten darauf zugegriffen wird? Nur so eine Vermutung.

Da XProfan sich mit der Registry sowieso recht schwer tut weiche ich schon immer auf die APIs aus.

Jac

[AHT]

Das mit den Rechten war auch meine erste Vermutung, daran scheint es aber nicht zu liegen. Roland sieht sich die Sache noch an.

[AHT]

Wie gesagt, kann gut sein, das ich etwas blind bin und mir da selbst einen Fehler eingebaut habe, den ich nicht sehe .

Der Schlüssel, den ich lesen möchte, befindet sich unter Vista unter HKEY_LOCAL_MACHINE. Welche Einstellungen ich da auslesen möchte, ist (glaube ich) offensichtlich (damit der Beitrag in Google nicht von jedem gefunden wird erwähne ich das nicht extra).
Ich habe die Sache gerade mit Profan7.5 getestet, da gibt es das gleiche Ergebnis (Readini$ liest ebenfalls nichts).
Ich habe das ganze dann mit abgeschaltetem MIC und sogar mit Systemrechten probiert und das Proggie mit dem IL Systemverbindlichkeitsstufe gestartet (über meinen MILStarter) - wie erwartet immer noch ohne Erfolg.

Da andere Werte des gleichen Schlüssels erfolgreich mit Readini$ ausgelesen werden können und Werte nicht mit Zugriffsrechten versehen sind (nur Schlüssel), kann es auch nicht an den Zugriffsrechten liegen. Für die Gruppe "Administratoren" und den Account "System" besteht sowieso GENERIC_ALL auf den Schlüssel, Benutzer haben KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, KEY_NOTIFY und READ_CONTROL (das dürfte GENERIC_READ entsprechen).

[RGH]

Da ich auf meinen Vista-Test-Rechner momentan keinen Zugriff habe, kann ich mir das frühestens am Wochenende ansehen. (Auf meinem Entwicklungsrechner ist noch XP und wird wohl bis Ende des Jahres von WIndows 7 abgelöst.)

Gruß
Roland

[RGH]

Zitat von AHT

Der String im Titel der Messagebox ist unter
Vista nicht komplett lesbar.

In aktuellen XProfan-Versionen wird die Fehlernmeldung auch unter Vista und 7 komplett angezeigt.

Gruß
Roland

[RGH]

Hallo,
ich glaube ich habe die Fehlerursache gefunden: Die von mir verwandte Unit zum Auslesen der Registry nutzt einen Buffer in der Größe 256 Bytes. Hier scheint das Ergebnis diese Größe zu überschreiten.
In früheren Windowsversionen war dies wohl die maximale Länge eines Eintrages in der Registry. Ich mache mich mal kundig, was der längste mögliche Eintrag unter aktuellen Windowsversionen ist und passe den Buffer für XProfan 12 entsprechend an.

(Also mit den Rechten kann es definitiv nichts zu tun haben, da ich ansonsten natürlich exakt die gleichen API-Aufrufe verwende.)

Gruß
Roland