لجعل البرنامج يعمل عند تشغيل ويندوززز

عليكم السلام

أخي العزيز أسئلتك مكررة في المنتدى لمرات عديدة ...

إستخدم خاصية البحث وستجد الكثير ...

السلام عليكم

الاخ Max bayne

بالنسبة لسؤالك الاول : كما قال لك الاخ Max bayne , لو استخدمت خاصية البحث فى المنتدى ستجد العديد من المواضيع التى تشرح هذه النقطة,,,

بالنسبة للسؤال الثانى : انا اسف جدا لانى مضطر اعدل مشاركتك واحذف السؤال الثانى لانه لا علاقة له بالموضوع ....

يمكنك وضع هذا السؤال فى موضوع مستقل, وهذا فقط للتنظيم ولتسهيل البحث فى المنتدى

ارجو ان تراجع قواعد المشاركة,,,,

بسم الله الرحمن الرحيم

اضف Checkbox الى مشروعك تحت اسم RegRunAdd واكتب هذا الكود

Const HKEY_CURRENT_USER= &H80000001 
Const CLE_RUN = "Software\Microsoft\Windows\CurrentVersion\Run" 
Const REG_SZ = 1 ' Unicode nul terminated string 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long 
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 
  
Private Sub RegRunAjoute() 'ajoute la clé ds le registre pour demarrage auto 
    Dim Ret as Long 
    Dim Result as Long 
    Dim ValCle As String 
    Dim Parametres as string 'Parametres optionnels de la ligne de commande (ne pas oublier l'espace au début) 
  
    Parametres="" 
    ValCle = App.Path & "\" & App.EXEName & ".exe" & Parametres 
  
    'Create a new key 
    Result = RegCreateKey(HKEY_CURRENT_USER, CLE_RUN, Ret) 
    If Result <> 0 Then 
        MsgBox "Error while creating the Key!!" 
        Exit Sub 
    End If 
'Set the key's value 
    Result = RegSetValueEx(Ret, App.Title, 0, REG_SZ, ByVal ValCle, Len(ValCle)) 
    If Result <> 0 Then 
        MsgBox "Error while creating the Key!!" 
    End If 
    'close the key 
    RegCloseKey Ret 
End Sub

لايقاف البرنامج مع تشغيل اضف Checkbox الى مشروعك تحت اسم RegRunOte واكتب هذا الكود

Private Sub RegRunOte() 
    Dim Result as Long 
    Dim Ret as Long 
'Check if the specified key exists 
RegOpenKey HKEY_CURRENT_USER, CLE_RUN, Ret 
If Ret = 0 Then Exit Sub 'la clé n'existe pas 
     
'Delete the key's value 
Result = RegDeleteValue(Ret, App.Title) 
If Result <> 0 Then 
    MsgBox "Error while deleting the Key!!" 
End If 
  
'close the handle 
RegCloseKey Ret 
  
End Sub

اخى يمكنك ايضا عمل shortcut من البرنامج في start up

السلام عليكم ورحمة الله وبركاته

شكرا لكم اخواني الاعزاء ولكن اعزروني واسف مرة اخري ولكن بالنسبة للبحث في المنتدي فانا فعلت بالفعل قبل ما اقوم بكتابة السوال ولكن لم يجدي البحث بشئ واوكد لكم اني حولت قبل الكتابة وشكرا مرة اخري واسف علي تكرار السوال ......................................................

مشكوور ...