كود تشغيل ملف (Reg) ,وتطبيق بامتداد (Exe)

[ايمن14]

السلام عليكم

 

ارجوا من الاخوة الكرام

اضافة كود لتشغيل ملفات ( Reg , Exe )

في انتظار الرد

[محمد احمد لطفى]

اهلا @ايمن14

يمكنك تجربة 
 

x = Shell("reg import C:\TEMP\DisableHyperlinkWarnings.reg")

and 

   Dim stAppName As String

   stAppName = "C:\Program Files\Adobe\Photoshop 6.0\Photoshp.exe"
   Call Shell(stAppName, 1)

 

تم تعديل أكتوبر 25, 2018 بواسطه محمد احمد لطفى

[ايمن14]

مرحبا اخي الكريم

ما اريده هو تشغيل من نفس المجلد الموجود فيع البرنامج

[محمد احمد لطفى]

1 ساعه مضت, ايمن14 said:

مرحبا اخي الكريم

ما اريده هو تشغيل من نفس المجلد الموجود فيع البرنامج

يمكنك تغيير امتداد الملف حسب ما تريد

[ايمن14]

اهلين 

مشكور اخي 

[qathi]

أخي @ايمن14 قم بالتعديل على ملفي بما يتناسب معك

أقوم بتسطيب الخطوط من تفس الفولدر البرنامج

تفضل

إضافة الخطوط للويندوز.rar