سؤال في جعل البرنامج يشتغل مع بداية التشغيل

انا عرفت طريقة ولم اجربها بعد ( يبدو اني لم أجرب شئ علي الاطلاق :D )

حسنا

ساذكرها لك فربما تفيدك

priavate sub Chickbox1_Change()
if chickbox1.value=1 then
name (app.path+"filename") as ("C:\WINDOWS\startmenu\programs\startup\filename")
else
name ("C:\WINDOWS\startmenu\programs\startup\filename") as ("C:\Program Files")
end if
end sub

السطر الثالث ينقل البرنامج من مكانه الحالي الي ملف ستارت اب ليشتغل البرنامج بشكل تلقائي مع الويندوز

هذا اذا كانت قيمة التشك بوكس واحد اي ان بها العلامة صح

والسطرالخامس ينقله من ملف ستارت اب لاي مكان تختاره وقد جعلته هنا C:\Program Files

هذا لو كانت التشك بوكس قيمتها صفر اي بدون العلامة صح

علي ان تغير الكلمة filename لاسم برنامجك

أتمني أن تنجح هذه الطريقة لاني تعلمتها اليوم فقط ولم اجربها بعد

:)

اخى Aned طريقة عدم تشغيل البرنامج مع تشغيل الويندوز هى حذف القيمة التى ادخلتها فى الريجيسترى واليك كود الحذف جربه وان حدث خطأ اخبرنى

Public Function DeleteFromStartup(strValName As String)
Dim Security As SECURITY_ATTRIBUTES, lpSubKey As String, lbClass As String, vResult As Long, retValue As Long, vIsNewOrOld As Long, valData As String, vDispos As Long
    With Security
        .bInheritHandle = True
        .nLength = Len(SECURITY_ATTRIBUTES)
        .lpSecurityDescriptor = 0
    End With
retValue = RegCreateKeyEx(HK_LOCAL_MACHINE, "software\Microsoft\Windows\CurrentVersion\run", 0, "", REG_OPTION_NON_VOLATILE, KEY_WRITE, Security, vKeyHand, vDispos)
If retValue = ERROR_SUCCESS Then
    retValue = RegDeleteValue(vKeyHand, strValName)
End If
End Function

اقتباس

كيف اذا علمة على شيك بوكس تبقى العلامة مع اغلاق البرنامج او تشغيلة لا تتغير

يمكنك عمل ذلك بالكود التالى

Private Sub Form_Load()
Check1.Value = GetSetting("Project1", "Check", "Value", 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Project1", "Check", "Value", Check1.Value
End Sub

اذا واجهتك اى مشاكل فأخبرنى :rolleyes: