فتح ملف و استخراج النص الموجود في شريط عنوان نافذته

أنت ألم تفتحه بكتابة ومعرفة أسمه Document1

يمكنك استعمال دالة الAPI التي تقوم بالبحث وهي

FindWindow

بتمرير اسم الكلاس الموجود فيه الDocument1 فهنا الامر يختلف قليلا عن الNotepad لان البحث كان يستعمل اسم التطبيق

أظن أن اسم الكلاس للوورد هو OpusApp

FindWindow("OpusApp", vbNullString)

غير عملي لسببين:

1. افرض عدم معرفته بالتطبيق المستخدم لفتح الملف.

2. افرض وجود أكثر من نافذة مفتوحة للـ Word

:wacko:

ربما نتخلى عن فكرة جلب المقبض باستعمال FindWindow في هذه الحالة فقط

ونقوم باستخدام الPID المنشئ من Shell ونجلب المقبض للتطبيق المفتوح باستعمال OpenProcess

بعدها يكون لدينا المقبض بعد فتح الملف في البرنامج المكتوب في سطر الاوامر المضمن في Shell

ومن هنا يمكننا الوصول لاستخراج عنوان النافذة باستخدام الدالة GetWindowText

الكلام نظري لكن فيه بعض المنطق :)

عظيم، ما رأيك بمثال سريع؟ ;)

في الحقيقة هناك فرق كبير بين الكلام النظري والتطبيق :)

الدالة OpenProcess لم ترجع لي المقبض الصحيح للبرنامج الذي تم تشغيله

لذلك وجب علينا الالتفاف للوصول إلى المقبض الصحيح

دائما باستعمال الPID المنشئ من الدالة Shell نقوم بمقارنة هذا الPID بالنوافذ المفتوحة والتي تكون ليست نوافذ فرعية

وقد وجدت مثال عن دالة تقوم بالعمل هذا بقليل من التعديل

Function InstanceToWnd(ByVal lPid As Long) As String
 Dim aHwnd As Long
 Dim Tpid As Long
 Dim thread_id As Long
 Dim MyStr As String
 aHwnd = FindWindow(vbNullString, vbNullString)
 Do While aHwnd <> 0
 ' جلب الPID للنافذة
   thread_id = GetWindowThreadProcessId(aHwnd, Tpid)
 'التأكد من أنها ليست نافذة فرعية
   If GetParent(aHwnd) = 0 Then
 'المقارنة بين الرقمين
	If Tpid = lPid Then
	InstanceToWnd = aHwnd
	 Exit Do
	 End If
   End If
 'جلب المقبض للنافذة التالية
	aHwnd = GetWindow(aHwnd, GW_HWNDNEXT)
 Loop
 End Function

طبعا عملية استرجاع المقبض هنا مهمة لانها ستستعمل لاستخراج عنوان النافذة

Pid = Shell(cmd, vbNormalFocus)
 aHandle = InstanceToWnd(Pid)

يمكن المقارنة بين المقبض المرجع بهذه الطريقة والمرجع باستعمال الطريقة التي ذكرتها أولا

aHandle = FindWindow("OpusApp", vbNullString)

المثال مرفق

66.zip