الحصول على شكل الطفل من البرامج الأخرى

الاستخدام كما يلي:

nParentHandle: hwnd ؛

nchildhandle: hwnd ؛

nParentHandle: = findWindow (nil ، '' notepad '') ؛

إذا nparentHandle <> 0 ثم

nchildhandle: = findchildwindow (nparentHandle ، '' SomeChildEditSclassName '') ؛

------ رمز الوظيفة ------

var

Hwndfindchildwindow: hwnd ؛

وظيفة enumwindowsforfindchildwindwproc (whandle: hwnd ؛ lparam: lparam): bool ؛

كونست

max_window_name_len = 80 ؛

var

stargetClassName: String ؛

Nandle: hwnd ؛

scurrclassname: سلسلة ؛

بريسولت: منطقية ؛

يبدأ

إذا (hwndfindchildwindow <> 0) ثم

مخرج؛

stargetClassName: = pchar (lparam) ؛

scurrclassName: = getWindowClass (whandle) ؛

bresult: = comparetext (scurrclassname ، stargetClassName) = 0 ؛

إذا (بريسولت) ثم

hwndfindchildwindow: = whandle

آخر

FindChildwindow (Whandle ، pchar (lparam)) ؛

نهاية؛

وظيفة FindChildWindow (hwndparent: hwnd ؛ classname: pchar): hwnd ؛

يبدأ

يحاول

Enumchildwindows (HwndParent ، enumWindowsforfindchildwindowproc ، longint (pchar (className))) ؛

النتائج: = hwndfindchildwindow ؛

يستثني

استثناء تفعل

النتائج: = 0 ؛

نهاية؛

نهاية؛

// العودة إلى النموذج الحالي مع التركيز

وظيفة getFocusedWindowFromParent (parentwnd: hwnd): hwnd ؛

var

آخر ،

المخزن المؤقت: DWORD ؛

idcurrthread: dword ؛

يبدأ

OtherThread: = getWindowThreadProcessId (parentwnd ، @buffer) ؛

idcurrthread: = getCurrentThreadId ؛

إذا كان acheDreshreadInput (IdCurrThread ، OtherThread ، True) ثم ابدأ

النتيجة: = getFocus ؛

AccessThReadInput (IdCurrThread ، OtherThread ، false) ؛

نهاية

آخر

النتيجة: = getFocus ؛

نهاية؛

// احصل على الشكل الفرعي الذي يحصل على التركيز حاليًا ، حتى لو كان شكل تطبيقات أخرى

وظيفة getFocusedChildWindow: hwnd ؛

يبدأ

النتيجة: = getFocusedWindowFromParent (getForeGroundWindow) ؛

نهاية؛

// احصل على نص النموذج

وظيفة eigetwintext (nhandle: integer): سلسلة ؛

var

PCText: Array [0..32768] of Char ؛

يبدأ

SendMessage (nhandle ، wm_gettext ، 32768 ، longint (pctext)) ؛

النتائج: = pctext ؛

نهاية؛

// اضبط نص النموذج

الإجراء eisetWintExt (nhandle: integer ؛ const snewtext: string) ؛

يبدأ

SendMessage (nhandle ، wm_settext ، الطول (snewtext) ، longint (pchar (trim (snewtext)))) ؛

نهاية؛

// إرجاع اسم فئة النموذج

وظيفة eigetwindowclass (const nhandle: hwnd): سلسلة ؛

var

SzClassName: Array [0..255] of Char ؛

يبدأ

GetClassName (Nhandle ، SzClassName ، 255) ؛

النتيجة: = szClassName ؛

نهاية؛