Discussion :

[tintin62]

Bonjour
je sais trouver le Handle d une fenetre avec findwindow
mais comment manipuler un Menu de cette application externe
pour lister toutes les options du Tmenu avec leur Handle
ou une application qui me listerais tous les composants de la fenetre et sous menu
Merci

[Nebulix]

Si tu retrouves dans les fichiers d'aide :
EnumChildWindows
EnumWindows
tu devrais t'en sortir

[Andnotor]

ici

[tintin62]

Bonjour
merci deja de vos reponses qui m a
permis de trouver sa
sa marche jarrive a changer le nom du sous menu
mais la fonction ne marche plus apres que jappui dessus
vous joint code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
 
var MenuItemInfo : TMenuItemInfo;
    Hwnd:THandle;
    Hwnd2, Hwnd3:HMenu;
       i: Integer;
begin
 
Hwnd:=FindWindow(nil, 'Nom du caption du progamme a modifier');
// recherche handle du menu
Hwnd2:=GetMenu(Hwnd);
// recherche handle du sous-menus du menu '1' (donc le 2eme car on part de 0)
Hwnd3:=GetSubMenu(Hwnd2, 0);
 
Button2.Caption:=IntToStr(Hwnd3);
 
 FillChar(MenuItemInfo,SizeOf(TMenuItemInfo), #0);
 
   with menuitemInfo do
  begin
    cbSize          := SizeOf( TMenuItemInfo );
    fMask           := MIIM_CHECKMARKS or MIIM_DATA or MIIM_ID or
                        MIIM_STATE or MIIM_SUBMENU or MIIM_TYPE or MIIM_CHECKMARKS ;
    fType           := MFT_STRING;
    fState          := MFS_ENABLED ;
    hSubMenu        := 0;
    hbmpChecked     := 0;
    hbmpUnchecked   := 0;
  end;
menuitemInfo.fstate := MFS_ENABLED;
// on definit le caption du sous-menu à changer
MenuItemInfo.dwTypeData := 'Exporter';
// on definit la taille du caption
MenuItemInfo.cch := Length('Exporter');
// exemple pour mettre un menu qui n'est pas clickable a clickable
MenuItemInfo.fState:=MFS_ENABLED;
// on applique enfin toutes les modifications
SetMenuItemInfo(hwnd3, 5, TRUE, MenuItemInfo);
end;

Ou est erreur svp
Merci d avance