Möchten Sie, daß beim Starten von Windows eine bestimmte Anwendung geladen wird? Hierbei kann es sich z.B. um einen Terminkalender handeln, welcher Sie auf fällige Termine oder Geburtstage hinweist. ' zunächst die benötigten API-Deklarationen 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 RegCloseKey Lib "advapi32.dll" ( _ ByVal hKey As Long) As Long Private Declare Function RegSetValueEx_String Lib "advapi32.dll" _ Alias "RegSetValueExA" ( _ ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal Reserved As Long, _ ByVal dwType As Long, _ ByVal lpData As String, _ ByVal cbData As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" _ Alias "RegDeleteValueA" ( _ ByVal hKey As Long, _ ByVal lpValueName As String) As Long Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_LOCAL_MACHINE = &H80000002 Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE Or KEY_SET_VALUE _ Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or _ KEY_NOTIFY Or KEY_CREATE_LINK Const ERROR_SUCCESS = 0& Const REG_NONE = 0 Const REG_SZ = 1 ' Anwendung in Registry eintragen ' ' sDescr: Beschreibung/Bezeichnung ' sPath : Pfad inkl. Dateiname der Anwendung ' =========================================== Public Function SetAutoRun(sDescr As String, _ sPath As String) As Boolean Dim lResult As Long Dim KeyHandle As Long Dim Key As String Const root = HKEY_CURRENT_USER Key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" lResult = RegOpenKeyEx(root, Key, 0, KEY_ALL_ACCESS, _ KeyHandle) If lResult <> ERROR_SUCCESS Then SetAutoRun = False Exit Function End If ' +1 für die Null am Ende lResult = RegSetValueEx_String(KeyHandle, sDescr, 0, _ REG_SZ, sPath, Len(sPath) + 1) RegCloseKey KeyHandle SetAutoRun = (lResult = ERROR_SUCCESS) End Function ' aus Registry entfernen ' ' sDescr: Beschreibung/Bezeichnung ' ================================= Function RemoveAutoRun(sDescr As String) As Boolean Dim lResult As Long Dim KeyHandle As Long Dim Key As String Const root = HKEY_CURRENT_USER Key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" lResult = RegOpenKeyEx(root, Key, 0, _ KEY_ALL_ACCESS, KeyHandle) If lResult <> ERROR_SUCCESS Then RemoveAutoRun = False Exit Function End If lResult = RegDeleteValue(KeyHandle, sDescr) RemoveAutoRun = (lResult = ERROR_SUCCESS) RegCloseKey KeyHandle End Function Beispiel: If SetAutoRun("Notepad", "c:\windows\notepad.exe") Then MsgBox "Eintrag war erfolgreich." Else MsgBox "Eintrag war nicht erfolgreich." End If ' Eintrag wieder aus Registry löschen RemoveAutoRun "Notepad" Dieser Tipp wurde bereits 48.943 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
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. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||||||||
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. |