29-07-2017, 04:57 PM
السلام عليكم و رحمة الله و بركاته
شكرا لكل من ساعدني في ايجاد الحل.
الحل كان متوفر من قبل لكن بعض الامور البسيطة حالت دون الوصول اليه
نفس الكود لكن اضافة (") للمسارات كما يمكن اخفاء النافدة المنبتقة بتغير SW_SHOW ب SW_HIDE
و الله و للجميع التوفيق ان شاء الله
شكرا لكل من ساعدني في ايجاد الحل.
الحل كان متوفر من قبل لكن بعض الامور البسيطة حالت دون الوصول اليه
نفس الكود لكن اضافة (") للمسارات كما يمكن اخفاء النافدة المنبتقة بتغير SW_SHOW ب SW_HIDE
و الله و للجميع التوفيق ان شاء الله
كود :
ShellExecute(Application.Handle,
'open',
PChar(GetEnvironmentVariable('ComSpec')),
'/K "C:\Gestion\Gest.bat"',
'"C:\Gestion"',
SW_HIDE);