Español
Fuente/ Codesnippets

Durchsuchen Enum Reg Regenumvalue Registry

 

KompilierenMarcaSeparación
Gemerkt/Separiert von http://xprofan.com/thread.core?t=7045
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#

ref='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

 
07.11.2008  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.454 Views

Untitledvor 0 min.
H.Brill21.05.2023
Georg Teles26.03.2023
Paul Glatz06.04.2014

Themeninformationen

Dieses Thema ha 1 subscriber:

iF (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie