استدعاء ملفات بلواحق مختلفة من البرنامج مباشرة

أفضل حل استعمال ال API المسمى ShellExecute

وهذا مثال لفتح ملف تنفيذي مهما كانت لاحقته :

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 Command1_Click()
ShellExecute 0, "open", "c:\Upload.rar", "", "", 1
End Sub

غير :

c:\Upload.rar

الى مسار الملف الذي تريد فتحه

اخي العزيز هذا الكود خاص بفتح الملفات التنفيذية فقط مهما تغيرغ اللاحقة للملف التنفيذي

ولكن الملف الذي اريد فتحه هو ليس ملف تنفيذي وانما لاحقته الاساسية access.cpl ليس exe

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

ولك كل التقدير والشكر

الطريقة التي وضعها أخي الكريم تعمل 100%

جرب الكود على ملف نصي وستراه يعمل بطريقة فعالة ...

Private Declare Function ShellExecuteA Lib "shell32" (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 Command1_Click()
ShellExecuteA 0, vbNullString, "C:\boot.ini", "", "", 1
End Sub

يلاحظ أني قمت بتغيير "open" إلى vbnullString لأن بعض الملفات تكون قيمة التشغيل الإفتراضية ليست Open ولكن كلمة أخرى

طيب اخي جرب فتح هذا الملف الذي مساره ثابت في ويندوز اكس بي وهو access.cpl في المسار

C:\WINDOWS\system32

وبتمنى منك اخي ان تذكر لي مثال فقط يحوي الكود الذي يفتح مثل هذه اللواحق

والف شكر الك

يمكنك ذلك باضافة الاداة OLE الى الفورم ثم كتابة الكود التالي :

Private Sub Command1_Click()

Dim R As String ' R INDICATES THE FILR PATH

OLE1.CreateLink ( R )

OLE1.DOVERBE

End Sub

:nose_pick:

النتيجة :

اقتباس

Private Declare Function ShellExecuteA Lib "shell32" (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 Command1_Click()

ShellExecuteA 0, vbNullString, "C:\WINDOWS\system32\access.cpl", "", "", 1

End Sub

عالعموم إذا لم يعمل معك فعليك إستدعاء دالة Shell بهذا الأمر:

"rundll32.exe" shell32.dll,Control_RunDLL "C:\WINDOWS\system32\access.cpl",

ويمكن استخدام الامر Environ("SystemRoot") لمعرفة مجلد النظام وبعد ذلك تشغيل الامر

 Shell "rundll32.exe shell32.dll,Control_RunDLL """ & Environ("SystemRoot") & "\system32\access.cpl"""

كل الشكر والعرفان والمحبة لكل الاخوة الذين ساعدوا بالاجابة

الاكثر من رائعة

وجزاكم الله كل الخير دائما

بالإضافة إلى ذلك يمكنك إستخدام الأمر Shell كالتالى:

Shell "control.exe access.cpl"

Shell "Control.exe anyfile.cpl"

أردت فقط ان اضيف عن دالة ShellExecute

البرامتر lpOperation يمكن ان يكون أي شئ غير Open أو بمعنى أصح يكون نفس الأمر الموجود في القائمة المنسدلة عن النقر بالزر الأيمن للماوس

مثال :

ShellExecuteA 0, "Open with Olly&Dbg", "D:\windows\system32\calc.exe", "", "", 1

يقوم بتحميل الالة الحاسبة في برنامج اوللي ... للتعرف على البارامترات الصحيحة استكشفها بنفسك في المفتاح :

HKEY_CLASSES_ROOT\*

والسلام عليكم