|
| |
Fortgeschrittene Programmierung| Re: Registry-Pfad löschen | |  | Autor:  Dieter (Moderator) | | Datum: 18.01.02 00:03 |
| Hallo Gerald,
hier der Code zum Entfernen des Eintrags aus dem Kontextmenü des Explorer:
<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegOpenKeyEx <font color=#000099>Lib</font> _
"advapi32.dll" _
<font color=#000099>Alias</font> "RegOpenKeyExA" (<font _
color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>, _
<font color=#000099>ByVal</font> lpSubKey <font color=#000099>As</font> <font _
color=#000099>String</font>, <font color=#000099>ByVal</font> ulOptions <font _
color=#000099>As</font> <font color=#000099>Long</font>, _
<font color=#000099>ByVal</font> samDesired <font color=#000099>As</font> _
<font color=#000099>Long</font>, phkResult <font color=#000099>As</font> _
<font color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegDeleteKey <font color=#000099>Lib</font> _
"advapi32.dll" _
<font color=#000099>Alias</font> "RegDeleteKeyA" (<font _
color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>, _
<font color=#000099>ByVal</font> lpSubKey <font color=#000099>As</font> <font _
color=#000099>String</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegCloseKey <font color=#000099>Lib</font> _
"advapi32.dll" _
(<font color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Const</font> HKEY_CLASSES_ROOT = &H80000000
<font color=#000099>Const</font> KEY_SET_VALUE = &H2</code> Und jetzt die Löschfunktion:
<code><font color=#000099>Dim</font> lResult <font color=#000099>As</font> _
<font color=#000099>Long</font>
<font color=#000099>Dim</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> strKey <font color=#000099>As</font> <font _
color=#000099>String</font>
<font color=#000099>Dim</font> strText <font color=#000099>As</font> <font _
color=#000099>String</font>
strText = "Text im Kontextmenü"
<font color=green>' Registry-Zweig öffnen</font>
strKey = "*shell\" + strText
lResult = RegOpenKeyEx(HKEY_CLASSES_ROOT, strKey, _
0, KEY_SET_VALUE, hKey)
<font color=#000099>If</font> lResult = 0 <font color=#000099>Then</font>
<font color=green>' SubKey Command löschen</font>
lResult = RegDeleteKey(hKey, "Command")
<font color=#000099>If</font> lResult = 0 <font color=#000099>Then</font>
<font color=green>' Registry-Zweig schliessen</font>
<font color=#000099>Call</font> RegCloseKey(hKey)
<font color=green>' Registry-Zweig öffnen "*shell)"</font>
strKey = "*shell"
lResult = RegOpenKeyEx(HKEY_CLASSES_ROOT, strKey, _
0, KEY_SET_VALUE, hKey)
<font color=#000099>If</font> lResult = 0 <font color=#000099>Then</font>
<font color=green>' SubKey "strText" löschen</font>
lResult = RegDeleteKey(hKey, strText)
<font color=green>' Registry-Zweig schliessen</font>
<font color=#000099>Call</font> RegCloseKey(hKey)
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>Else</font>
<font color=green>' Registry-Zugriff schliessen</font>
<font color=#000099>Call</font> RegCloseKey(hKey)
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>If</font></code>Viel Spass damit!
Cu
Dieter | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevOutBar 4.0 
Vertikale Menüleisten
á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
