Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien im Autostart regestrieren
Autor: SNOW
Datum: 18.10.02 22:00
Hi Dieter, hast recht. Ich wollte mein Programm im Autostart regestrieren und es anschließend über das ICON-TRAY starten. Dim sDescr As String Dim sPath As String 'Anwendung beim Windowsstart öffnen '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 Const HKEY_CURRENT_USER = &H80000001 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 Private Sub alb() Dim X As Variant sDescr = "Verwaltung" X = App.path & "\verwaltung.exe" sPath = X If SetAutoRun(sDescr, sPath) = True Then sPath = "" End Sub Gruß SNOW

Dateien im Autostart regestrieren	75	SNOW	15.10.02 21:09
Re: Dateien im Autostart regestrieren	227	Dieter	15.10.02 21:14
Re: Dateien im Autostart regestrieren	49	SNOW	17.10.02 13:37
Re: Dateien im Autostart regestrieren	285	Dieter	17.10.02 18:16
Re: Dateien im Autostart regestrieren	43	SNOW	18.10.02 22:00

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen