XProfan

Español

Torsten
Rümker

Hi,

Folgendes es mein Problema:
Yo habe mehrere Programas erstellt, que en el Registry bajo HKEY_Current_UserSoftware una Haupteintrag teilen.
Also:
HKEY_Current_UserSoftwareTRSoftwareProgramm1
HKEY_Current_UserSoftwareTRSoftwareProgramm2
usw.

Wenn Yo ahora una Programa deinstalliere se lo natürlich seine Spuren de el Registry con entfernen.
Nur, como prüfen Yo sicher de, el todavía una weiterer Schlüssel bajo TRSoftware disponible es, así Yo, el Eintrag sólo Lösche si auch wirklich posible/nötig es?

Yo habe ya verschiedenes ausprobiert (z.b. una Eintrag en el vermerkt es como viele Programas Einträge haben) pero yo habe todavía nichts hinbekommen, qué sicher funktioniert.

Für cada Referencia dankbar
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

HKEY_Current_UserSoftwareTRSoftwareProgramm1

Eigentlich funktioniert el doch prima. Bajo TRSoftware kannst Usted doch no sólo Unterschlüssel redactar. Setze Usted hay una Schlüssel hin, el como una Stringliste funktioniert:
installiert = Programa1, Programa2

Nach Deinstallation de Programa1 nimmst Usted el Schlüssel, entfernst el entsprechenden Unterschlüssel-Namen y weißt entonces: aha, como es todavía qué.

Yo experimentiere gerade con el Löschen: ADVAPI ha una Löschfunktion y SHLWAPI ha incluso una todo Batterie de entsprechenden Características. Tiempo sehen qué draus se.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:f5bb95ce4d=Torsten Rümker]Nur, como prüfen Yo sicher de, el todavía una weiterer Schlüssel bajo TRSoftware disponible es, así Yo, el Eintrag sólo Lösche si auch wirklich posible/nötig es?
[/quote:f5bb95ce4d]
Mit RegQueryInfoKey?
Kompilieren Marca Separación

Def @RegQueryInfoKey(12) !"ADVAPI32","RegQueryInfoKeyA"
Declare CLASS#,ClassSize&,SubKeys&,Greatest&,MaxClassLen&
Declare Values&,MaxValueNameLen&,MaxValueLen&,SecDescLänge&,FileTime#
Declare Fehler&
Dim Class#,261
DIM FileTime#,8
LET ClassSize&=261
Let Fehler&=@RegQueryInfoKey($80000001,Class#,@ADDR(ClassSize&),0,@ADDR(SubKeys&),@ADDR(Greatest&),@ADDR(MaxClassLen&),@ADDR(Values&),@ADDR(MaxValueNameLen&),@ADDR(MaxValueLen&),@ADDR(SecDescLänge&),FileTime#)
ADDSTRING "Rückgabe von RegQueryInfoKey="+@STR$(Fehler&)
ADDSTRING "Klassenname="+@String$(CLASS#,0)
ADDSTRING "Länge des Klassennamens="+@STR$(ClassSize&)
ADDSTRING "Anzahl der Unterschlüssel="+@STR$(SubKeys&)
ADDSTRING "Länge des größten Unterschlüssels="+@STR$(Greatest&)
ADDSTRING "Länge des größten Klassennamens="+@STR$(MaxClassLen&)
ADDSTRING "Anzahl der Werte im Schlüssel="+@STR$(Values&)
ADDSTRING "Länge des größten Wertenamens="+@STR$(MaxValueNameLen&)
ADDSTRING "Länge des größten Wertes="+@STR$(MaxValueLen&)
ADDSTRING "Länge des Security Descriptors="+@STR$(SecDescLänge&)
Dispose FileTime#
Dispose CLASS#
@EDITBOX("Rückgaben",1ss=s2>)

Saludo

Andreas

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

... ach sí, y el hätte Yo como auch todavía anzubieten:
Kompilieren Marca Separación

Def @RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
Def @RegEnumKey(4) !"ADVAPI32","RegEnumKeyA"
Def @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
Def @InitCommonControls(0) !"COMCTL32","InitCommonControls"
Def @RegQueryInfoKey(12) !"ADVAPI32","RegQueryInfoKeyA"
DEF @GetSysColor(1) !"USER32","GetSysColor"
@InitCommonControls()
Declare CLASS#,ClassSize&,SubKeys&,Greatest&,MaxClassLen&
Declare Values&,MaxValueNameLen&,MaxValueLen&,SecDescLänge&,FileTime#
Declare Fehler&,CL_NAME&
Declare hImageList&,hIcon&,Executehandle&,Root1&,ROOT&[2,3,10],ROOT11&
Declare Imagelist&,TV_INSERT#,TV_TEXT#,TV_ITEM#,REG_KEY$,REG_ROOT$,REG_ERGEBNIS$
Declare Unterlage7&,TV_ITEM_HANDLE&,TV_ITEM_HANDLE2&
Declare REG_ERGEBNIS#,REG_ERROR&,REG_HANDLE&
Declare REG_Zähler%,TV_ITEM_HANDLE1&
Declare CL_Länge&,SK_ANZAHL&,SK_Länge&,CL_LängeMax&,W_Anzahl&
Declare WN_Länge&,W_Länge&,SecDesc_Länge&
Dim TV_TEXT#,261
DIM REG_ERGEBNIS#,261
Declare TreeView&
DIM TV_INSERT#,48
DIM TV_ITEM#,40

PROC TVINSERT

    String TV_TEXT#,0=@$(2)      Der Text im Label
    long TV_INSERT#,0=@&(1)          TVins-Parent
    long TV_INSERT#,8=$0001
    long TV_INSERT#,24=TV_TEXT#   Adress of Label

ENDPROC

Windowstyle 31+512
Window 10,50-600,420
Windowtitle "Infos über Registrykeys auslesen"
settruecolor 1
cls @GETSYSCOLOR(15)
LET Unterlage7&=@Control("Dialog","",$40000000+$10000000,10,50,600,320,%HWND,3,%HINSTANCE)
Let TreeView&=@control("SysTreeView32","",$40000000+$10000000+$800000+$200000+$0002+$0010+$0020,40,20,250,300,Unterlage7&,200,%Hinstance)
@sendmessage(TreeView&,$1109,0,Imagelist&) Associate the image list with the tree
LET CL_NAME&=@Createtext(%HWND,"Klassenname=",310,50,400,30)
LET CL_Länge&=@Createtext(%HWND,"Länge des Klassennamens=",310,85,400,30)
LET SK_ANZAHL&=@Createtext(%HWND,"Anzahl der Unterschlüssel=",310,190,400,30)
LET SK_LÄNGE&=@Createtext(%HWND,"Läng des größten Unterschlüssels=",310,155,400,30)
LET CL_LängeMax&=@Createtext(%HWND,"Länge des längsten Klassennamens=",310,120,400,30)
LET W_Anzahl&=@Createtext(%HWND,"Anzahl der Werte im Schlüssel=",310,225,400,30)
LET WN_Länge&=@Createtext(%HWND,"Länge des größten Wertenamens=",310,260,400,30)
LET W_Länge&=@Createtext(%HWND,"Länge des größten Wertes=",310,295,400,30)
LET SecDesc_Länge&=@Createtext(%HWND,"Länge des Security Descriptors=",310,330,400,30)
@Sendmessage(Treeview&,$111D,0,@RGB(255,255,220))
@Sendmessage(Treeview&,$111E,0,@RGB(255,70,100))
TVINSERT 0,"HKEY_LOCAL_MACHINE",$0010
@sendmessage(Treeview&,$1100,0,TV_INSERT#)
TVINSERT 0,"HKEY_USERS",$0010
@sendmessage(Treeview&,$1100,0,TV_INSERT#)
CLEAR TV_ITEM#,TV_TEXT#

While %MENUITEM<>-2

    Sleep 100
    LET TV_ITEM_HANDLE1&=@sendmessage(Treeview&,$110A,$0009,0)

    IF TV_ITEM_HANDLE1&<>TV_ITEM_HANDLE&

        Enablewindow Treeview&,0
        Usecursor 2
        LET REG_KEY$=""
        LET REG_ROOT$=""
        LET TV_ITEM_HANDLE&=TV_ITEM_HANDLE1&
        CLEAR TV_ITEM#,TV_TEXT#
        LONG TV_ITEM#,0=$11
        LONG TV_ITEM#,20=261
        LONG TV_ITEM#,16=TV_TEXT#
        LONG TV_ITEM#,4=TV_ITEM_HANDLE&
        @sendmessage(Treeview&,$110C,0,TV_ITEM#)
        LET REG_KEY$=@STRING$(TV_TEXT#,0)
        LET TV_ITEM_HANDLE2&=TV_ITEM_HANDLE&

        While TV_ITEM_HANDLE2&<>0

            LET TV_ITEM_HANDLE2&=@sendmessage(Treeview&,$110A,$3,TV_ITEM_HANDLE2&)

            IF TV_ITEM_HANDLE2&<>0

                CLEAR TV_ITEM#,TV_TEXT#
                LONG TV_ITEM#,0=$11
                LONG TV_ITEM#,20=261
                LONG TV_ITEM#,16=TV_TEXT#
                LONG TV_ITEM#,4=TV_ITEM_HANDLE2&
                @sendmessage(Treeview&,$110C,0,TV_ITEM#)
                LET REG_KEY$=""+REG_KEY$
                LET REG_KEY$=@STRING$(TV_TEXT#,0)+REG_KEY$

            endif

        wend

        LET REG_ROOT$=@SubStr$(REG_KEY$,1,"")

        IF REG_ROOT$<>""

            LET REG_KEY$=@TRANSLATE$(REG_KEY$,REG_ROOT$,"")
            CASE LEFT$(REG_KEY$,1)="" : LET REG_KEY$=@RIGHT$(REG_KEY$,@LEN(REG_KEY$)-1)

        else

            LET REG_ROOT$=REG_KEY$
            LET REG_KEY$=""

        endif

        While @sendmessage(Treeview&,$110A,$4,TV_ITEM_HANDLE&)<>0

            LET TV_ITEM_HANDLE2&=@sendmessage(Treeview&,$110A,$4,TV_ITEM_HANDLE&)
            @Sendmessage(Treeview&,$1101,0,TV_ITEM_HANDLE2&)

        wend

        IF REG_ROOT$="HKEY_USERS"

            LET REG_Error&=@RegOpenKeyEx($80000003,@addr(REG_Key$),0,$20019,@addr(REG_Handle&))

        Elseif REG_ROOT$="HKEY_LOCAL_MACHINE"

            LET REG_Error&=@RegOpenKeyEx($80000002,@addr(REG_Key$),0,$20019,@addr(REG_Handle&))

        else

            LET REG_Error&=2

        endif

        LET REG_ZÄHLER%=0

        whilenot REG_Error&

            LET REG_Error&=@RegEnumKey(REG_Handle&,REG_Zähler%,REG_Ergebnis#,261)

            IF REG_Error&=0

                LET REG_ERGEBNIS$=@string$(REG_Ergebnis#,0)
                TVINSERT TV_ITEM_HANDLE&,REG_ERGEBNIS$,$0010
                @sendmessage(Treeview&,$1100,0,TV_INSERT#)

            endif

            inc REG_Zähler%

        wend

        Dim Class#,261
        DIM FileTime#,8
        LET ClassSize&=261
        Let Fehler&=@RegQueryInfoKey(REG_Handle&,Class#,@ADDR(ClassSize&),0,@ADDR(SubKeys&),@ADDR(Greatest&),@ADDR(MaxClassLen&),@ADDR(Values&),@ADDR(MaxValueNameLen&),@ADDR(MaxValueLen&),@ADDR(SecDescLänge&),FileTime#)
        Settext CL_NAME&,"Klassenname="+@String$(CLASS#,0)
        Settext CL_Länge&,"Länge des Klassennamens="+@STR$(ClassSize&)
        Settext SK_ANZAHL&,"Anzahl der Unterschlüssel="+@STR$(SubKeys&)
        Settext SK_Länge&,"Länge des größten Unterschlüssels="+@STR$(Greatest&)
        Settext CL_LängeMax&,"Länge des größten Klassennamens="+@STR$(MaxClassLen&)
        Settext W_Anzahl&,"Anzahl der Werte im Schlüssel="+@STR$(Values&)
        Settext WN_Länge&,"Länge des größten Wertenamens="+@STR$(MaxValueNameLen&)
        Settext W_Länge&,"Länge des größten Wertes="+@STR$(MaxValueLen&)
        Settext SecDesc_Länge&,"Länge des Security Descriptors="+@STR$(SecDescLänge&)
        Dispose FileTime#
        Dispose CLASS#
        @RegCloseKey(REG_Handle&)
        @Sendmessage(Treeview&,$1113,0,TV_ITEM_HANDLE&)
        Usecursor 0
        Enablewindow Treeview&,1

    endif

    DRAWTEXT 0,0,"REG_ROOT$="+REG_ROOT$+@SPACE$(255)
    DRAWTEXT 0,20,"REG_KEY$="+REG_KEY$+@SPACE$(255)

WEND

Dispose TV_ITEM#
Dispose TV_TE

class=s4 href='./../../function-references/XProfan/disponer/'>DISPOSE TV_INSERT# Disponer REG_ERGEBNIS#

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Hab 2 Erweiterungen vorgenommen:
Kompilieren Marca Separación

!
Tvinsert 0,"HKEY_CLASSES_ROOT",$0010
@Sendmessage(Treeview&,$1100,0,Tv_insert#)
Tvinsert 0,"HKEY_CURRENT_USER",$0010
@Sendmessage(Treeview&,$1100,0,Tv_insert#)
Tvinsert 0,"HKEY_LOCAL_MACHINE",$0010
@Sendmessage(Treeview&,$1100,0,Tv_insert#)
Tvinsert 0,"HKEY_USERS",$0010
@Sendmessage(Treeview&,$1100,0,Tv_insert#

y
Kompilieren Marca Separación

!

If Reg_root$="HKEY_USERS"

    Let Reg_error&=@Regopenkeyex($80000003,@Addr(Reg_key$),0,$20019,@Addr(Reg_handle&))

Elseif Reg_root$="HKEY_CURRENT_USER"

    Let Reg_error&=@Regopenkeyex($80000001,@Addr(Reg_key$),0,$20019,@Addr(Reg_handle&))

Elseif Reg_root$="HKEY_CLASSES_ROOT"

    Let Reg_error&=@Regopenkeyex($80000000,@Addr(Reg_key$),0,$20019,@Addr(Reg_handle&))

Elseif Reg_root$="HKEY_LOCAL_MACHINE"

    Let Reg_error&=@Regopenkeyex($80000002,@Addr(Reg_key$),0,$20019,@Addr(Reg_handle&))

Más

    Let Reg_error&=2

Endif

Kann Yo en el Moment bien gebrauchen, danke.

En Classes_Root kanns una Weilchen dauern. En me zählt él encima 8000 Unterschlüssel.

schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ob uno el braucht, es Ansichtssache...

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Torsten
Rümker

Jau, así müßte lo ir.

Sogar muy simplemente, en Anzahl el Unterschlüssel.
Wenn Anzahl Unterschlüssel = 0 entonces wech con TRSoftware

Gracias dir.

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Mir war el local_user wichtig, como hay bajo software el meisten programme verewigt son.

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bin MInimalist - es bajo HKEY_USERS con el String SID des jeweiligen Users auslesbar...

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Torsten
Rümker

So tener ahora no Geduld mehr.
APIs find Yo echt anstrengend.
Yo mach para heute schluß y fahre mi Schwester besuchen.

Morgen denk Todavía veces drüber después de como yo para mich umgemodelt bekomme

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

30.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Torsten
Rümker

[quote:418f29a759=Andreas Hötker]Bin MInimalist - es bajo HKEY_USERS con el String SID des jeweiligen Users auslesbar...[/quote:418f29a759]
Ähöm, para una Minimalisten schreibst du aber bastante schön aufwändige Beispielcodes

Aber veces en el Ernst.

Könntest du me de tiempo una Minimal-Ejemplo redactar, con el Yo el Edición su Quellcodes para una cierto Schlüssel (welcher me está egal) bekomme?
Ehrlich dijo raucht me el Kopf, como Yo
a) Was APIs angeht irgendwie begriffsstutzig bin
y
b) Desde que lo todavía nie wirklich para algo gebrauchen podría Yo auch así mi Problemas con el Treeview habe

Ok, el son ehrlich dijo no wirklich el besten Gründe, pero yo geh más bien Schritt para Schritt antes si yo qué neues lerne.
Also primero el Yo akut gebrauchen podría y später entonces el Extras