MSAAのIAccessibleを使うには (ID:42144)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんちには．

>IAccessible インターフェイスの accDoDefaultAction メソッドを試して

ええっと，ちょっと待ってください．前のレッドに確かDelhiのバージョンが...
あっ，書いてあった．Delphi 2007でしたよね．でしたら，
IAccessibleインターフェイスは実装されています．

accDoDefaultActionですが，例えば，エクセルなんかですと，ツールバー，
コマンドバーに，あることを実行するコマンドが決まっています．
これを実行するやつですね．

accDoDefaultActionではないですが，IAccessible インターフェイスの簡単な使用例です．
前のスレッドでの，ツールバーのボタンの数を調べます．
usesにoleaccが必要です

const //* Reserved IDs for system objects
  OBJID_WINDOW            = $00000000;
  OBJID_SYSMENU           = $FFFFFFFF;
  OBJID_TITLEBAR          = $FFFFFFFE;
  OBJID_MENU              = $FFFFFFFD;
  OBJID_CLIENT            = $FFFFFFFC;
  OBJID_VSCROLL           = $FFFFFFFB;
  OBJID_HSCROLL           = $FFFFFFFA;
  OBJID_SIZEGRIP          = $FFFFFFF9;
  OBJID_CARET             = $FFFFFFF8;
  OBJID_CURSOR            = $FFFFFFF7;
  OBJID_ALERT             = $FFFFFFF6;
  OBJID_SOUND             = $FFFFFFF5;
  OBJID_QUERYCLASSNAMEIDX = $FFFFFFF4;
  OBJID_NATIVEOM          = $FFFFFFF0;

procedure TForm1.Button1Click(Sender: TObject);
var
  hTargetWnd  : HWND;
  hToolBar    : HWND;
  oAccessible : IAccessible;
  Ret         : HRESULT;
  vValue      : Integer;
begin

//hToolBarはツールバーのハンドルとする
  Ret := AccessibleObjectFromWindow(hToolBar, OBJID_WINDOW, IID_IAccessible, oAccessible);
  if Ret = S_OK then begin
    oAccessible.Get_accChildCount(vValue);
    ShowMessage(IntToStr(vValue));
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る