start up

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_LOCAL_MACHINE = &H80000002

Const sKey = "softwaremicrosoftwindowscurrentversionrun"

Private Sub Command1_Click()



Dim KeyH As Long

Dim FN As String

FN = App.Path

If Right(FN, 1) <> "" Then FN = FN & ""

FN = FN & App.EXEName & ".exe"

RegOpenKeyEx HKEY_LOCAL_MACHINE, sKey, 0, &H1, KeyH

RegSetValueEx_String KeyH, "My_exe", 0, 1, FN, Len(FN) + 1

RegCloseKey KeyH

End Sub

ماذا تعني

عندما استخدمته ظهر لي خطا في هذاالسطر

If Right(FN, 1) <> "" Then FN = FN & ""

[movel]و كيف انشأ اختصار على الدسك توب[/movel]

start up

مواضيع مشابهة