XProfan

Français

Torsten
Rümker

Hi,

Folgendes ist mon Problem:
j'ai plusieurs Programme erstellt, qui sich dans qui Registry sous HKEY_Current_UserSoftware une Haupteintrag partager.
Donc:
HKEY_Current_UserSoftwareTRSoftwareProgramm1
HKEY_Current_UserSoftwareTRSoftwareProgramm2
usw.

si je maintenant un Programme deinstalliere soll es naturellement sa Spuren aus qui Registry avec entfernen.
seulement, comment vérifier je sûrement ab, le reste un weiterer Schlüssel sous TRSoftware vorhanden ist, avec cela Je l' Eintrag seulement Lösche si es aussi wirklich possible/nötig ist?

j'ai déjà verschiedenes ausprobiert (z.b. un Eintrag dans dem vermerkt ist comment viele Programme Einträge avons) mais j'ai encore rien hinbekommen, quoi sûrement funktioniert.

Pour jeden Hinweis reconnaissant
Torsten

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

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

HKEY_Current_UserSoftwareTRSoftwareProgramm1

Eigentlich funktioniert cela doch prima. sous TRSoftware peux Du doch pas seulement Unterschlüssel erstellen. mets Dir là une Schlüssel hin, qui comment une Stringliste funktioniert:
installiert = Programme1, Programme2

Pour Deinstallation de Programme1 prends Du den Schlüssel, entfernst den entsprechenden Unterschlüssel-Namen et savoir ensuite: aha, voilà encore quoi.

je experimentiere justement avec dem Effacer: ADVAPI hat une Löschfunktion et SHLWAPI hat sogar une ganze pile de entsprechenden Funktionen. la fois voyons quoi draus wird.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[quote-part:f5bb95ce4d=Torsten Rümker]seulement, comment vérifier je sûrement ab, le reste un weiterer Schlüssel sous TRSoftware vorhanden ist, avec cela Je l' Eintrag seulement Lösche si es aussi wirklich possible/nötig ist?
[/quote-part:f5bb95ce4d]
avec RegQueryInfoKey?
Kompilieren Marque Séparation

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>)

Salut

Andreas

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

... ah oui, et cela hätte je là aussi encore anzubieten:
Kompilieren Marque Séparation

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/dispose/'>DISPOSE TV_INSERT# Dispose REG_ERGEBNIS#

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

Hab 2 Erweiterungen vorgenommen:
Kompilieren Marque Séparation

!
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#

et
Kompilieren Marque Séparation

!

Si Reg_root$="HKEY_USERS"

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

Elseif Reg_root$="HKEY_CURRENT_USER"

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

Elseif Reg_root$="HKEY_CLASSES_ROOT"

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

Elseif Reg_root$="HKEY_LOCAL_MACHINE"

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

D'autre

    Laisser Reg_error&=2

Endif

peux je im Moment bien gebrauchen, merci.

chez Classes_Root kanns un Weilchen dauern. chez mir zählt il sur 8000 Unterschlüssel.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

si on qui braucht, ist Ansichtssache...

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

Jau, avec cela devrait es aller.

Sogar très simple, sur le nombre qui Unterschlüssel.
si Anzahl Unterschlüssel = 0 ensuite wech avec TRSoftware

merci dir.

MfG
Torsten

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

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

Mir était qui local_user important, là là sous software qui meisten programme verewigt sommes.

Programmieren, das spannendste Detektivspiel der Welt.

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

suis MInimalist - ist sous HKEY_USERS avec dem String SID des jeweiligen Users auslesbar...

30.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

So hab maintenant aucun patience plus.
APIs find je vraie fatigant.
je mach pour aujourd'hui schluß et fahre mon la soeur besuchen.

demain denk je encore la fois drüber pour comment je cela pour 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 citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

[quote-part:418f29a759=Andreas Hötker]suis MInimalist - ist sous HKEY_USERS avec dem String SID des jeweiligen Users auslesbar...[/quote-part:418f29a759]
Ähöm, pour une Minimalisten écris du mais entier joli aufwändige Beispielcodes

mais la fois im Ernst.

Könntest du mir la fois un Minimal-Beispiel erstellen, avec dem je qui Ausgabe votre Quellcodes pour une certain Schlüssel (quel c'est moi égal) bekomme?
à vrai dire raucht mir qui tête, là je
a) quoi APIs angeht irgendwie begriffsstutzig suis
et
b) là je es encore nie wirklich pour irgendwas gebrauchen konnte je aussi so mon Probleme avec dem Treeview habe

Ok, ce sont à vrai dire pas wirklich qui besten Gründe, mais je va lieber Schritt pour Schritt avant si je quoi nouveau lerne.
alors erstmal cela quoi je akut gebrauchen pourrait et später ensuite qui Extras