Deklaration: Declare Function RegDeleteValue Lib "advapi32.dll" _ Alias "RegDeleteValueA" ( _ ByVal hKey As Long, _ ByVal lpValueName As String) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function RegCloseKey Lib "advapi32.dll" ( _ ByVal hKey As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _ Alias "RegOpenKeyExA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ ByVal ulOptions As Long, _ ByVal samDesired As Long, _ phkResult As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" _ Alias "RegDeleteValueA" ( _ ByVal hKey As Long, _ ByVal lpValueName As String) As Long ' eine der RegOpenKeyEx hKey-Konstanten Private Const HKEY_LOCAL_MACHINE = &H80000002 ' Einige der samDesired-Konstanten Private Const KEY_SET_VALUE = &H2 Private Const KEY_CREATE_SUB_KEY = &H4 Private Const SYNCHRONIZE = &H100000 Private Const READ_CONTROL = &H20000 Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or _ KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) ' Stellt das Standardsymbol in der rechten oberen Ecke des ' Internet Explorers wieder her, falls Anwendungen wie AOL oder ' T-Online dieses verändert haben. Dies ist nur möglich wenn ' die Anwendungen nicht das Originalbild durch ihr eigenes ' überschrieben haben. Private Sub Command1_Click() Dim hKey As Long, Retval As Long ' Registryschlüssel öffnen Retval = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Internet _ Explorer\Main", 0&, KEY_WRITE, hKey) If Retval << 0 Then Exit Sub ' Die vom Fremdprogramm erstellten Werte entfernen RegDeleteValue hKey, "BrandBitmap" RegDeleteValue hKey, "SmBrandBitmap" RegDeleteValue hKey, "BigBitmap" RegDeleteValue hKey, "SmallBitmap" MsgBox "Das Original-Symbol sollte nun wiederhergestellt sein," & _ vbCrLf & _ "Starten Sie den Internet Explorer erneut um das Resultat zu sehen." ' Registryschlüssel schließen RegCloseKey hKey End Sub Diese Seite wurde bereits 9.616 mal aufgerufen. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 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 |
||||||||||||||
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. |