GetMenuItemについて (ID:12649)

名前

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

本文 procedure TForm1.Button1Click(Sender: TObject); var AppHandle: HWND; TopItem : TTreeNode; procedure MakeTree(Item : TTreeNode; MenuID : HMENU); var i : integer; s : string; buf : array[0..1000] of Char; NewItem : TTreeNode; NewMenuID : HMENU; begin for i := 0 to GetMenuItemCount(MenuID)-1 do begin if GetMenuString(MenuID,i, buf,SizeOf(buf),MF_BYPOSITION)>0 then s := buf else s := ''; NewItem := TTreeView(Item.TreeView).Items.AddChild(Item,s); NewMenuID := GetSubMenu(MenuID,i); if (GetMenuState(MenuID,i, MF_BYPOSITION) and MF_SEPARATOR) = MF_SEPARATOR then NewItem.Text := '-'; if GetMenuItemCount(NewMenuID)>0 then MakeTree(NewItem,NewMenuID); end; end; function GetTopParent(h:HWND) : HWND; var p : HWND; begin p := GetParent(h); if (P=h)or(p=0) then Result := h else Result := GetTopParent(p); end; begin TopItem := TreeView1.Items.AddChild(nil,'Menu'); if Length(Edit1.Text)>0 then AppHandle := GetTopParent(StrToInt(Edit1.Text)) else AppHandle := Handle; MakeTree(TopItem,GetMenu(AppHandle)); end; { GetMenu GetMenuString GetSubMenu GetMenuItemCount }