هل ممكن أن أعرف أن الملف التفيذى مازال يعمل

السؤال فى قسم الـ VB لذا أتمنى أنه غرضك طريقة بالـ VB

عموما تقدر تراقب الـ Processes و تشوف الـ Process لسه شغال و لا لأ , دى أسهل طريقة.

أما كان البرنامج ده مفتوح من برنامج أنت اللى عامله و أستخدمت Shell أو Shellexecute يبقى تستعمل Shell & wait

PROCENUM

Shell an application and wait asynchronously for completion

شكرا على الرد السريع

أنا فعلا أقصد الطريقة الثانية بس لو ممكن شرح أكثر عنها أو مثال لأن أنا مش فاهم الكود كويس

وشكرا

راجع :

OpenProcess

GetExitCodeProcess

لفهم الموضوع فهم محور الحل.

تعديل : الرابط الأخير بالمشاركة 2 فيه رابط للمشروع , فوق على الشمال.

معلش أعزرنى أنا بردة مش فاهم

ياريت مثال كامل

msayed2004 كتب:

تعديل : الرابط الأخير بالمشاركة 2 فيه رابط للمشروع , فوق على الشمال.

Zip file: ShellWait Demonstration.zip

معلش تانى , أنا عايز مثال أو شرح و يا ريت تكون صبور معايا شوية :(

يا ناس حد يقول أى حاجة مفيدة

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

Private Declare Function WaitForSingleObject Lib "kernel32" _
   (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
	ByVal dwProcessId As Long) As Long


Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
	Dim iTask As Long, ret As Long, pHandle As Long
	iTask = Shell("notepad.exe", vbNormalFocus)
	pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
	ret = WaitForSingleObject(pHandle, INFINITE)
	ret = CloseHandle(pHandle)
	MsgBox "Process Finished!"
End Sub

جرب هذا الكود

تبسيطا للفكرة :

يبقى أنت دلوقتى عملت Shell للبرنامج و عرفت الـ Task ID و ممرتها للدالة OpenProcess فى الـ Parameter المسمى ByVal dwProcessId As Long و من OpenProcess عرفت الـ handle بتاع الـ Process بتاعة البرنامج اللى فتحناه بـ Shell و الـ Handle اللى جه نمرره لدالة GetExitCodeProcess علشان نعرف حالة الـ Process شغالة و لا لأ و بس , هى فكرة بسيطة لو تتبعتها واحدة واحدة بعض معرفة وظائف الـ APIs المستخدمة .