XProfan

English

Jac
de
Lad

has someone Perhaps a View source present, the in the Registry in all Schlüsseln after a Zeichenaequenz seek? I know The APIs and white How I it do would, but before I me The whole work make, wished I time inquiries, whether someone Perhaps already what there has, there could I me The trouble save.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

11/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

I answer me time self, Perhaps need the someone yet. The Proc seek in the angegebenen Key and all Unterschlüsseln to Einträgen, The the angegebenen String correspond to and gives The Key back.
Compile Mark Separation

Enumerator
mkey%=Hauptschlüssel:
HKEY_CLASSES_ROOT=0
HKEY_CURRENT_USER=1
HKEY_LOCAL_MACHINE=2
HKEY_USERS=3
HKEY_PERFORMANCE_DATA=4
HKEY_CURRENT_CONFIG=5
key$=Startschlüssel ("" für Hauptschlüssel)
s$=zu suchender String

proc Enumerator

    Parameters Mkey%,key$,s$
    declare error&,handle&,zaehler%,Ergebnis#,b#,e#,typ#,Name#,Inhalt#,handle#
    Dim Ergebnis#,255
    dim b#,1000
    dim e#,1000
    dim Typ#,1
    dim Name#,102
    dim Inhalt#,102
    dim Handle#,4
    Error&=Regopenkeyex($80000000+mkey%,Addr(Key$),0,$F003f,Addr(Handle&))

    Whilenot Error&

        Error&=Regenumkey(Handle&,Zaehler%,Ergebnis#,100)

        ifnot Error&

            Enumerator mkey%,key$+If(key$="","","\")+String$(Ergebnis#,0)

        endif

        Inc Zaehler%

    Endwhile

    RegOpenKeyEx($80000000+mkey%,Addr(key$),0,1,Handle#)
    Clear zaehler%,error&

    whilenot error&

        Long b#,0=100
        Long e#,0=100
        error&=RegEnumValue(Long(Handle#,0),Zaehler%,Name#,b#,0,Typ#,Inhalt#,e#)

        if Byte(Typ#,0)=1

            case s$=Lower$(string$(Inhalt#,0)):AddString SubStr$("HKCR,HKCU,HKLM,HKU,HKPD,HKCC",mkey%+1,",")+" , "+key$+If(key$="","","\")+String$(Ergebnis#,0)+" , "+If(string$(Name#,0)="","(Standard)",string$(Name#,0))+" = "+string$(Inhalt#,0)

        endif

        Inc zaehler%

    endwhile

    RegCloseKey(Long(Handle#,0))
    dispose Handle#
    dispose Name#
    dispose b#
    dispose Typ#
    dispose Inhalt#
    dispose e#
    Regclosekey(Handle&)
    Dispose Ergebnis#

ef='./../../references-fonction/XProfan/endproc/'>endproc