[angvelem]

Примерно так:

Код:

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass	: array[Byte] of Char;
begin
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  if (lstrcmpi(szClass, 'BUTTON') = 0) then
  begin
    SendMessage(hWndCtrl, WM_COMMAND, 0, hWndCtrl);
  end;
  Result := True;
end;

//----------------------------------------------------------

procedure EnumChild(Wnd : HWND);
begin
  if (not EnumChildWindows(Wnd, @EnumChildProc, 0)) then
    Exit;
end;