function EnumChild(hwnd: THandle; Param: Integer): Boolean; stdcall; var Buffer: array [0..254] of Char; begin if(GetWindowText(hwnd, Buffer, SizeOf(Buffer) > 0) and (Buffer = 'Button Caption') then begin SendMessage(hwnd, WM_MOURSEDOWN, 0, 0); Result := False; end else Result := True; end;EnumChildWindow(外部窗体Handle, @EnumChil, 0);
找到句柄
var
Buffer: array [0..254] of Char;
begin
if(GetWindowText(hwnd, Buffer, SizeOf(Buffer) > 0) and (Buffer = 'Button Caption') then
begin
SendMessage(hwnd, WM_MOURSEDOWN, 0, 0);
Result := False;
end else
Result := True;
end;EnumChildWindow(外部窗体Handle, @EnumChil, 0);