برنامج تشغيل تلقائي للسي دي Autorun

الأخ الفاضل ...

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

فشخص يحب أن يرى الـ txt بأستخدام Notepad و اخر باستخدام Wordpad وهكذا

Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10
Private Const SW_FORCEMINIMIZE = 11


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

Private Sub cmdExplorer_Click()
	Call ShellExecute(0, "open", "Explorer.exe", "C:\Windows", "", SW_SHOWNORMAL)
End Sub
Private Sub cmdTXT_Click()
	Call ShellExecute(0, "open", "C:\Windows\setuplog.txt", "", "", SW_SHOWNORMAL)
End Sub
Private Sub cmdINI_Click()
	Call ShellExecute(0, "open", "C:\Windows\win.ini", "", "", SW_SHOWNORMAL)
End Sub

حيث يمكن أستخدام أكثر من Operation، كل له وظيفته، كالتالى:

1. open: لفتح أو تشغيل الملف
   
2. edit: لفتح الملف للتحرير، مثلاً ملفات htm يتم فتحها بـ IE أو FF ... الخ، وتحريرها بـ FrontPage أو Notepad ... الخ
   
3. print: لطباعة الملف
   
4. explore: لإستعراض مجلد، مثال

   Call ShellExecute(0, "explore", "C:\Windows", "", "", SW_SHOWNORMAL)

   
   

5. find: لبدء البحث، مثال

   Call ShellExecute(0, "find", "C:\Windows", "", "", SW_SHOWNORMAL)

   
   

كذلك إذا كان الملف تنفيذى (أى EXE) يمكن استخدام الأمر Shell كالتالى

Private Sub cmdExplorer_Click()
	Shell "Explorer.exe C:\Windows", vbNormalFocus
End Sub

شكراً

اقتباس

والمطلوب هو اكواد لتشغيل الملفات من الأنواع التالية (msi,txt,reg),

راجع الرابط التالي لدي فيه رد و ستجد الجواب أن شاء الله

حيث تستطيع فتح الملفات من عدة أنواع من خلاله

تشغيل ملف تنفيذي