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

مغلق

بدأه THE KILLER CODE في 14 ديسمبر 2006 · 2 رد · 536 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#114 ديسمبر 2006 في 19:42 صاحب الموضوع

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

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

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

سبحان الله وبحمده سبحان الله العظيم

الله وحده شريك له له الملك وله الحمد وهو علي كل شيئ قدير

لا حول ولا قوة الا بالله العلي العظيم

 ما زال الرجل عالما طالما يتحري العلم فان قال علمت فقد جهل

#214 ديسمبر 2006 في 20:28

سأساعدك بإذن الله

لدي كود برمجي .. يقوم بتشغيل اي ملف بشرط ان تقوم بوضع مسار الملف وامتداده

شاهد الكود

ضع اسم الملف وامتداداة .. مكان File Name

Private Sub Form_Activate()
Const SW_SHOWNORMAL = 1
Dim filename As String

filename = App.Path & "\" & " File nime.exe"

ShellExecute Me.hwnd, "open", filename, vbNullString, vbNullString, SW_SHOWNORMAL

End

End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

#314 ديسمبر 2006 في 22:21

كلام جميل ولكن هل هذا الكود يقوم بتشغيل الملف لمرة واحدة فقط