| |
|
|
- Página 1 - |
|
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 ▲ |
|
|
|
|
| |
|
- Página 1 - |
|
Michael Wodrich | Hab 2 Erweiterungen vorgenommen: KompilierenMarcaSeparació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# n>
y KompilierenMarcaSeparació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 ▲ |
|
|
|
|
| Ob uno el braucht, es Ansichtssache... |
|
|
| |
|
|
|
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 ▲ |
|
|
|
|
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 ▲ |
|
|
|
|
| Bin MInimalist - es bajo HKEY_USERS con el String SID des jeweiligen Users auslesbar... |
|
|
| |
|
|
|
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 ▲ |
|
|
|
|
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
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 Usted Prfellow? Como gibts en el Vorlagen schöne Beispiele de Uwe Pascal Niemeyer. Usted puede lo Usted de [...] herunterladen. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 01.10.2006 ▲ |
|
|
|
| |
|
- Página 2 - |
|
|
| So OK: KompilierenMarcaSeparaciónKonstanten 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, Yo glaube du hast mein unverständnis halbwegs beseitigt, RegQueryInfoKey se also con el ganzen variablen no necesariamente algo transferencia, pero lo landen auch Ergebnisse drin. Also z.B. en Subkeys&. Der Weg war me neu, y erklärt algunos Codesnipsel el Yo bisher no verstanden habe.
Also, danke para el Kurzversion, el erklärt me así 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, Yo glaube du hast mein unverständnis halbwegs beseitigt, RegQueryInfoKey se also con el ganzen variablen no necesariamente algo transferencia, pero lo landen auch Ergebnisse drin. Also z.B. en Subkeys&. [/quote:66cb0b93ad] Es en vielen APIs así. |
|
|
| |
|
|
|
Torsten Rümker | [quote:10c8e47fce=Andreas Hötker]Es en vielen APIs así.[/quote:10c8e47fce] Jep tener Yo ahora verstanden, aber daran erkennt uno veces otra vez el lo para Verständnis uno Problemes wichtig es sozusagen de el richtigen Richtung a denken.
Naja, deswegen sí mi Signatur
MfG Torsten |
|
|
| Ich lerne, ob ich will oder nicht! Betriebssystem: - Ubuntu 15.x - Windows (diverse) XProfan Version: X2 | 06.10.2006 ▲ |
|
|
|