| |
|
|
- Page 1 - |
|
Torsten Rümker | Hi,
Folgendes ist mein Problem: Ich habe mehrere Programme erstellt, die sich in der Registry unter HKEY_Current_UserSoftware einen Haupteintrag teilen. Also: HKEY_Current_UserSoftwareTRSoftwareProgramm1 HKEY_Current_UserSoftwareTRSoftwareProgramm2 usw.
Wenn ich jetzt ein Programm deinstalliere soll es naturalmente seine Spuren aus der Registry mit entfernen. Nur, wie prüfen ich sicher ab, das noch ein weiterer Schlüssel unter TRSoftware vorhanden ist, damit Io l' Eintrag nur Lösche wenn es auch wirklich possibile/nötig ist?
Ich habe schon verschiedenes ausprobiert (z.b. ein Eintrag in dem vermerkt ist wie viele Programme Einträge haben) aber ich habe noch nichts hinbekommen, was sicher funktioniert.
Für jeden Hinweis dankbar Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 30.09.2006 ▲ |
|
|
|
|
| |
|
- Page 1 - |
|
Michael Wodrich | Hab 2 Erweiterungen vorgenommen: KompilierenMarkierenSeparieren!
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# n>
und KompilierenMarkierenSeparieren!
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&))
Else
Let Reg_error&=2
Endif
Kann ich im Moment gut gebrauchen, danke.
Bei Classes_Root kanns ein Weilchen dauern. Bei mir zählt er circa 8000 Unterschlüssel.
schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 30.09.2006 ▲ |
|
|
|
|
| Ob man die braucht, ist Ansichtssache... |
|
|
| |
|
|
|
Torsten Rümker | Jau, damit müßte es gehen.
Sogar sehr einfach, circa die Anzahl der Unterschlüssel. Wenn Anzahl Unterschlüssel = 0 dann wech mit TRSoftware
Danke dir.
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 30.09.2006 ▲ |
|
|
|
|
Michael Wodrich | Mir war der local_user wichtig, da dort unter software die meisten programme verewigt sind. |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 30.09.2006 ▲ |
|
|
|
|
| Bin MInimalist - ist unter HKEY_USERS mit dem String SID des jeweiligen Users auslesbar... |
|
|
| |
|
|
|
Torsten Rümker | So hab jetzt keine Geduld mehr. APIs find ich echt anstrengend. Ich mach per heute schluß und fahre meine Schwester besuchen.
Morgen denk ich noch mal drüber nach wie ich das per mich umgemodelt bekomme
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 30.09.2006 ▲ |
|
|
|
|
Torsten Rümker | [quote:418f29a759=Andreas Hötker]Bin MInimalist - ist unter HKEY_USERS mit dem String SID des jeweiligen Users auslesbar...[/quote:418f29a759] Ähöm, per einen Minimalisten schreibst du aber ganz schön aufwändige Beispielcodes
Aber mal im Ernst.
Könntest du mir mal ein Minimal-Beispiel erstellen, mit dem ich die Ausgabe deines Quellcodes per einen bestimmten Schlüssel (welcher ist mir egal) bekomme? Ehrlich gesagt raucht mir der Kopf, da ich a) Was APIs angeht irgendwie begriffsstutzig bin und b) Da ich es noch nie wirklich per irgendwas gebrauchen konnte ich auch so meine Probleme mit dem Treeview habe
Ok, das sind ehrlich gesagt nicht wirklich die besten Gründe, aber ich geh lieber Schritt per Schritt vor wenn ich was neues lerne. Also erstmal das was ich akut gebrauchen potuto und später dann die Extras
Wäre echt nett
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 30.09.2006 ▲ |
|
|
|
|
Jörg Sellmeyer | Hast Du Prfellow? Da gibts in den Vorlagen schöne Beispiele von Uwe Pascal Niemeyer. Du kannst es Dir von [...] herunterladen. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 01.10.2006 ▲ |
|
|
|
| |
|
- Page 2 - |
|
|
| So OK: KompilierenMarkierenSeparierenKonstanten festlegen
Def &HKEY_CLASSES_ROOT $80000000
Def &HKEY_CURRENT_USER $80000001
Def &HKEY_LOCAL_MACHINE $80000002
DEF &HKEY_USERS $80000003
APIs deklarieren
Def @Regopenkeyex(5) !"ADVAPI32","RegOpenKeyExA" Schlüssel öffnen
Def @Regqueryinfokey(12) !"ADVAPI32","RegQueryInfoKeyA"
Def @Regclosekey(1) !"ADVAPI32","RegCloseKey" Schlüssel schließen
Declare Subkeys&,Key$,Handle&
Declare Fehler&
LET KEY$="SoftwareMicrosoftWindowsCurrentVersion" diesen Schlüssel öffnen
Let Fehler&=@Regopenkeyex(&HKEY_CURRENT_USER,@ADDR(KEY$),0,$1,@ADDR(HANDLE&)) Schlüssel öffnen und Handle holen
Let Fehler&=@Regqueryinfokey(Handle&,0,0,0,@Addr(Subkeys&),0,0,0,0,0,0,0) ... den Rest benötigst du nicht => kann also 0 sein...
@Regclosekey(Handle&) Schlüssel schließen
Addstring "Anzahl der Unterschlüssel="+@Str$(Subkeys&)
@Editbox("Rückgaben",12>)
|
|
|
| |
|
|
|
Torsten Rümker | Ok, ich glaube du hast mein unverständnis halbwegs beseitigt, RegQueryInfoKey wird also mit den ganzen variablen nicht unbedingt etwas trasferimento, sondern es landen auch Ergebnisse drin. Also z.B. in Subkeys&. Der Weg war mir neu, und erklärt einige Codesnipsel die ich bisher nicht verstanden habe.
Also, danke per die Kurzversion, die erklärt mir so einiges!
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 05.10.2006 ▲ |
|
|
|
|
| [quote:66cb0b93ad=Torsten Rümker]Ok, ich glaube du hast mein unverständnis halbwegs beseitigt, RegQueryInfoKey wird also mit den ganzen variablen nicht unbedingt etwas trasferimento, sondern es landen auch Ergebnisse drin. Also z.B. in Subkeys&. [/quote:66cb0b93ad] Das ist bei vielen APIs so. |
|
|
| |
|
|
|
Torsten Rümker | [quote:10c8e47fce=Andreas Hötker]Das ist bei vielen APIs so.[/quote:10c8e47fce] Jep hab ich jetzt verstanden, aber daran erkennt man mal wieder das es zum Verständnis eines Problemes wichtig ist sozusagen aus der richtigen Richtung zu denken.
Naja, deswegen ja meine Signatur
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 06.10.2006 ▲ |
|
|
|