سلام دوستان کد زیر را در حالت Form_Activate برنامه خود در ویژوال بیسیک قرار دهید .
عملکرد : اجرای برنامه پس از هر بار بالا آمدن ویندوز
[align=LEFT]
[/align]
عملکرد : اجرای برنامه پس از هر بار بالا آمدن ویندوز
[align=LEFT]
کد:
Private Sub Form_Activate() Dim hregkey As Long Dim subkey As String Dim stringbuffer As String subkey = "Software\Microsoft\Windows\CurrentVersion\Run" retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey) If retval <> 0 Then Debug.Print "Can't open the subkey" Exit Sub End If stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer)) RegCloseKey hregkey End Sub
نظر