startup

السلام عليكم ...

أخي لم تذكر الطريقة التي أستخدمتها لعمل ذلك ...

هناك العديد من الطرق .. فأيها أستخدمت ...

تحياتي ...

هذا هو الكود الي استخدمته

Dim sApp As String

sApp = App.Path + IIf(Right(App.Path, 1) <> "\", "\", "") + App.EXEName + ".exe"

If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run\", lRegKey) = 0 Then

If RegSetValueEx(lRegKey, "My Program", 0, 1, ByVal sApp, Len(sApp)) Then

MsgBox "There was a Problem Adding This Program to the Registry", vbExclamation, "Error"

End If

Call RegCloseKey(lRegKey)

End If

ارجوا منكم المساعدة اذا سمحتوا في الموضوع

ممكن تضع المشروع

ارجوكم ساعدوني

محتاج الكود ضروري

أظن أن هذا المرفق سيفي بالغرض

فقط عليك تغيير كلمة ++k باسم برنامجك

lResult = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\k++", lOpenKey)

أخبرنا بالنتيجة واي مشاكل أخبرني

تحياتي لك

Example1.zip

الف شكر حبيبي

للاسف مانفعت

تقريبا في غلط

ماتتنفذ يعطيني msgbox الي موجودة بالكود

لا أدري لماذا لم يضبط الحل معك

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

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

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

أخي العزيز : استخدم الكود التالي ( وقم باستبدال My_Program حسب ما يتطلبه برنامجك ) :

    Dim lOpenKey As Long
    Dim lResult As Long

    lResult = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lOpenKey)

    If lResult = 0 Then
        RegDeleteValue lOpenKey, "My_Program"
    Else
        MsgBox "Couldn't Open specified Reg Key."
    End If

    RegCloseKey lOpenKey

المثال مرفق بالموضوع

أتمنى أن أكون قد حللت مشكلتك أخي :: ham22 ::

AH_Example.zip

أخي العزيز ( ham22 ) :

لقد أرفقت مع هذا الرد ملف وحدة نمطية Module من تصميم الأخ الحبيب والأستاذ الكبير :: رغيد الطيب :: لعلها تسهل عليك مسألة وضع البرنامج في بدء التشغيل أو إزالته منها .

وتقبل تحياتي :

أخوك / المبرمج أحمد

AutoRun.zip

الف شكر لك وماقصرت اخوي