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.626 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. 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 Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||
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. |