Dapatkan bentuk anak dari program lain

Penulis：Eve Cole Waktu Pembaruan：2025-02-26 12:48:02

Dengan secara rekursif menyebutkan bentuk anaknya melalui pegangan bentuk orang tua, kita akhirnya dapat menemukan bentuk anak yang kita butuhkan.

Penggunaannya adalah sebagai berikut:

nparenthandle: hwnd;

nchildhandle: hwnd;

nParenthandle: = findWindow (nil, '' notepad '');

Jika nparenthandle <> 0 lalu

nchildhandle: = findchildwindow (nparenthandle, '' somechildeditsclassname '');

------ Kode fungsi ------

var

hwndfindchildwindow: hwnd;

fungsi enumwindowsForFindChildWindowProc (whandle: hwnd; lparam: lparam): bool;

const

Max_window_name_len = 80;

var

StargetClassName: String;

nhandle: hwnd;

scurrcrlassname: string;

Bresult: Boolean;

Mulai

if (hwndfindchildwindow <> 0) lalu

KELUAR;

StargetClassName: = PCHAR (LPARAM);

scurrcrlassname: = getWindowClass (whandle);

Bresult: = compareText (scurrcrlassname, stargetclassname) = 0;

If (Bresult) lalu

hwndfindchildwindow: = whandle

kalau tidak

FindChildWindow (whandle, pchar (lparam));

akhir;

fungsi findChildWindow (hwndparent: hwnd; classname: pchar): hwnd;

Mulai

mencoba

EnumChildWindows (hwndparent, @enumwindowsForFindChildWindowProc, longint (pchar (classname))));

Hasil: = HWNDFindChildWindow;

kecuali

pada pengecualian lakukan

Hasil: = 0;

akhir;

// kembali ke formulir saat ini dengan fokus

fungsi getFocusedWindowFromparent (Parentwnd: hwnd): hwnd;

var

OtherThread,

Buffer: DWORD;

IDCURRTHREAD: DWORD;

Mulai

OtherThread: = GetWindowThreadProcessId (Parentwnd, @Buffer);

idcurrthread: = getCurrentThreadId;

Jika lampiranTReadInput (idcurrthread, OtherThread, true) maka mulailah

Hasil: = getFocus;

LampiranTreadInput (idcurrthread, OtherThread, false);

akhir

kalau tidak

Hasil: = getFocus;

akhir;

// Dapatkan subformitas yang saat ini mendapat fokus, bahkan jika itu adalah bentuk aplikasi lain

fungsi getFocusedChildWindow: hwnd;

Mulai

Hasil: = GetFocusedWindowFromparent (GetForeGroundWindow);

akhir;

// Dapatkan teks formulir

fungsi eigetwintext (nHandle: integer): string;

var

pctext: array [0..32768] dari char;

Mulai

SendMessage (nHandle, wm_gettext, 32768, longint (@pctext));

Hasil: = pctext;

akhir;

// Atur teks formulir

Prosedur eisetwintext (nHandle: integer; const snewtext: string);

Mulai

SendMessage (nHandle, wm_settext, length (snewtext), longint (pchar (trim (snewtext)))));

akhir;

// kembalikan nama kelas formulir

fungsi eigetwindowclass (const nhandle: hwnd): string;

var

szclassname: array [0..255] dari char;

Mulai

GetClassName (nhandle, szclassname, 255);

Hasil: = SzClassName;

akhir;