HanDs
NO.2

[Delphi文章] 获得其他程序的子窗体 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

通过一个父窗体的句柄,递归的枚举它的子窗体,我们可以最终找到需要的子窗体。

  用法如下:

  nParentHandle: HWnd;
  nChildHandle: HWnd;

  nParentHandle := FindWindow(nil, 'Notepad');
  if nParentHandle <> 0 then
    nChildHandle := FindChildWindow(nParentHandle, 'SomeChildEditsClassName');

------函数代码------

var
hwndFindChildWindow : HWND;

function EnumWindowsForFindChildWindowProc(WHandle: HWND; lParam: LPARAM): BOOL; export; stdcall;
const
MAX_WINDOW_NAME_LEN = 80;
var
sTargetClassName: string;
nHandle: HWnd;
sCurrClassName: string;
bResult: Boolean;
begin
if (hwndFindChildWindow <> 0) then
exit;
sTargetClassName := PChar(lParam);
sCurrClassName := GetWindowClass(WHandle);
bResult := CompareText(sCurrClassName, sTargetClassName) = 0;
If (bResult) then
hwndFindChildWindow := WHandle
else
FindChildWindow(WHandle, PChar(lParam));
end;

function FindChildWindow(hwndParent: HWnd; ClassName: PChar) : HWnd;
begin
try
EnumChildWindows(hwndParent, @EnumWindowsForFindChildWindowProc, LongInt(PChar(ClassName)));
Result := hwndFindChildWindow;
except
on Exception do
Result := 0;
end;
end;

//返回当前获得焦点的窗体
function GetFocusedWindowFromParent(ParentWnd:HWnd):HWnd;
var
OtherThread,
Buffer : DWord;
idCurrThread: DWord;
begin
OtherThread := GetWindowThreadProcessID(ParentWnd, @Buffer);
idCurrThread := GetCurrentThreadID;
if AttachThreadInput(idCurrThread, OtherThread, true) then begin
Result := GetFocus;
AttachThreadInput(idCurrThread, OtherThread, false);
end
else
Result:= GetFocus;
end;

//获得当前获得焦点的子窗体,即使它是其他应用程序的窗体
function GetFocusedChildWindow: HWnd;
begin
Result := GetFocusedWindowFromParent(GetForegroundWindow);
end;

//获得窗体的文本
function EIGetWinText(nHandle: Integer): string;
var
pcText: array[0..32768] of char;
begin
SendMessage(nHandle, WM_GETTEXT, 32768, LongInt(@pcText));
Result := pcText;
end;

//设定窗体的文本
procedure EISetWinText(nHandle: Integer; const sNewText: string);
begin
SendMessage(nHandle, WM_SETTEXT, Length(sNewText), LongInt(PChar(Trim(sNewText))));
end;

//返回窗体的类名
function EIGetWindowClass(const nHandle: HWnd): string;
var
szClassName: array[0..255] of char;
begin
GetClassName(nHandle, szClassName, 255);
Result := szClassName;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
获得 其他 程序 窗体
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组