XProfan

Español

Jac
de
Lad

Sombrero alguien tal vez una Ver código fuente rumliegen, el en el Registry en allen Schlüsseln después de uno Zeichenaequenz sucht? Yo saber el APIs y weiß Yo lo tun sería, aber bevor Yo el todo Arbeit mache, Yo quería veces nachfragen, si alguien tal vez ya qué como ha, como podría Yo el Mühe sparen.

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

05.11.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Yo antworte me de tiempo incluso, tal vez braucht el alguien todavía. El Proc sucht en el angegebenen Schlüssel y allen Unterschlüsseln después de Einträgen, el el angegebenen String entsprechen y son el Schlüssel zurück.
Kompilieren Marca Separación

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