procedure TForm1.Button1Click(Sender: TObject);Тут я нашел окно блокнота, узнал его заголовок и количество пунктов меню. Как узнать название пункта ? и если есть его подпунтков?
var wnd:hwnd;
TmpArray : array[0..100 - 1] of Char;
mymenu:Hmenu;
begin
Wnd := FindWindow('Notepad',nil);
GetWindowText(wnd, @TmpArray, 100);
label1.caption:=tmparray;
mymenu:=getmenu(wnd);
label2.Caption:=inttostr(GetMenuItemCount(mymenu));
end;
Сообщение отредактировано: Client -