Discussion :

[tintin62]

bonjour
Jai une application extérieur avec un bouton que je désire rendre enable
donc j'ai le handle du bouton
et j'emploi cette commande
sendmessage(handlebouton,WM_ENABLE,0,0)
mais j'arrive encore a cliquer dessus
donc i a t'il une autre commande pour rendre le bouton enabled
merci

[Paul TOTH]

que donne EnableWindow ?

[tintin62]

bonsoir
enablewindow peut s'appliquer a un bouton ?

[Jlmat]

Salut tinitin

ça tombe bien, je suis justement dans les interceptions de message. Le code suivant fonctionne sous Lazarus et donc ça devrait le faire aussi en Delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Procedure TForm1.FormActivate(Sender: TObject);
begin
   PostMessage(GetParent(Button1.Handle), WM_COMMAND, MAKEWPARAM(GetDlgCtrlID(Button1.Handle), BN_CLICKED),Button1.Handle);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('bouton clic');
end;

[tintin62]

Bonjour
merci pour votre aide
mais j'arrive déjà a cliquer sur un bouton extérieur mais moi je voudrais le rendre inactif (enable)
j'ai essaye de remplacer BM_CLICK par BM_ENABLE mais rien ne se passe

Code :

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

1
2
3
4
5
6
7
 
var
hand:thandle;
begin
hand:=strtoint('$'+essai.Edit1.Text);;
sendmessage(hand,BM_CLICK,0,0);
end;

[Jlmat]

Bonjour
...
j'ai essaye de remplacer BM_CLICK par BM_ENABLE mais rien ne se passe

Oui, excuse moi, je me suis emballé un peu vite.

Malheureusement, cette constante BM_ENABLE n'est pas définie dans l'unité messages.inc de Lazarus, j'essaie de voir s'il y a un autre moyen...

A+

[Paul TOTH]

bonsoir
enablewindow peut s'appliquer a un bouton ?

oui

Code :

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

1
2
3
4
5
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  EnableWindow(Button1.Handle, False);
end;

[Jlmat]

Pourquoi faire compliqué quand on peut faire simple!
intéressante cette fonction EnableWindow
Merci Paul

[Paul TOTH]

Pourquoi faire compliqué quand on peut faire simple!
intéressante cette fonction EnableWindow
Merci Paul

il faut malgré tout vérifier que cela fonctionne avec un process externe, ce n'est pas toujours le cas...mais en même temps s'il faut tout tester soit même je crois que je vais arrêter de donner des pistes

[Jlmat]

@ Paul

mais en même temps s'il faut tout tester soit même je crois que je vais arrêter de donner des pistes

ça serait dommage pour des éternels débutants comme moi et d'autres qui ont besoin d'un langage de programmation pour ses recherches (hors université) ...!

Les logiciels étant en continuelle évolution, on a besoin de pistes pour trouver les pratiques stables... Avant, les versions stables étaient money courante... On savait où on en était, mais maintenant, en France en tout cas, on est perdu avec toutes les occurences des moteurs de recherches et le peu de production papier. Moi, un livre bien fait ou une documentation comme du temps de Delphi 7, c'était un vrai plaisir de se former...

Maintenant, ça ressemble plus à une course d'obstacles...

@ Tintin, est-ce que c'est bon pour toi?
A+

[tintin62]

bonjour
viens de rentrer verrait sa demain si sa marche enablewindows
merci deja a vous tous de nous rendre moins ignare
++

[Mat.M]

bonjour
Jai une application extérieur avec un bouton que je désire rendre enable

c'est un peu pointu ce que vous voulez faire il faut faire du "subclassing" avec GetWindowLongPtr et son inverse SetWindowLongPtr.
Comme tout le monde sait bien une fenêtre a sa propre boucle de message et le kernel donc place les messages émis soit par le kernel lui-même soit l'application avec SendMessage.
donc obtenir le Handle de la fenêtre et appeler ces deux API.

donc j'ai le handle du bouton

il faut préciser de quelle manière est obtenu le Handle.

[tintin62]

bonsoir
merci Paul sa marche
pour le recherche handle j'avais trouve sa sur le site je crois
mais je me rappelle plus de qui est ce si il se reconnait qu'il le dit

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tessai = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    winHandle: HWND;
    winTitle : string;
  end;
 
var
  essai: Tessai;
 
implementation
 
{$R *.dfm}
 
 var
  s: String;
 
function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  ClassName: array[0..259] of Char;
begin
  Result := True;
  GetClassName(hwnd, ClassName, Length(ClassName));
  essai.ListBox1.Items.Add(IntToHex(hwnd,8) + ' ' + ClassName);
end;
 
procedure Tessai.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
 
  // ---------------------------------
  // 1. try to find main window hwnd:
  // ---------------------------------
  winHandle := FindWindow(nil,pchar('fenetre1'));
  if winHandle =0 then begin
  ListBox1.Items.Add('Error: 1.'); exit; end else
  ListBox1.Items.Add('win: 0x' + IntToHex(winHandle,8));
 
  // ---------------------------------
  // 2. try to find window title:
  // ---------------------------------
  SetLength(winTitle, GetWindowTextLength(winHandle));
  GetWindowText(winHandle, PChar(winTitle), Length(winTitle)+1);
  if Length(Trim(winTitle)) < 2 then begin
  ListBox1.Items.Add('Error: 2.'); exit; end else
  ListBox1.Items.Add('title: ' + winTitle);
 
  // ---------------------------------
  // 3. cross check: try to get class:
  // ---------------------------------
  SetLength(s, 100);
  GetClassName(winHandle, PChar(s), Length(s)+1);
  if Length(Trim(s)) < 2 then begin
  ListBox1.Items.Add('Error: 3.'); exit; end else
  ListBox1.Items.Add('class: ' + s);
 
  EnumChildWindows(winHandle, @EnumChildren, 0);
end;
 
procedure Tessai.Button2Click(Sender: TObject);
var
hand:thandle;
lpstring:pchar;
begin
hand:=strtoint('$'+essai.Edit1.Text);;
lpstring:=pchar(edit1.Text);
{sendmessage(hand,WM_SETTEXT,0,longint(lpstring));
{ sendmessage(hand,BM_CLICK,0,0);
sendmessage(hand,BN_DISABLE,0,0)
           }
{PostMessage(hand, WM_COMMAND, MAKEWPARAM(GetDlgCtrlID(Button1.Handle), BN_CLICKED),hand);    }
enablewindow(hand,false);
end;
 
procedure Tessai.Button3Click(Sender: TObject);
var
hand:thandle;
lpstring:pchar;
begin
hand:=strtoint('$'+essai.Edit1.Text);;
enablewindow(hand,true);
end;
 
end.

[Mat.M]

salut Tintin le code semble être efficient il faut effectivement appeler EnumChildWindows pour obtenir les handle des contrôles.
Est-ce que ça fonctionne alors ?

[tintin62]

bonsoir
oui et non
je ne parle pas de enable du button ( de Paul) avec enablewindow qui marche très bien
mais des fenêtres
EnumChildWindows ne me marque pas les enfants comme bouton ou liste pourtant avec son handle
j'ai certaine fenêtre ou il y as de boutons label ect .. et sa me les marque pas dans la liste box
comment cela ce peut t'il ou certaine fenêtre sont protéger pour pas lister les compo qui la compose
la je suis un peu perdu ou alors je n'emploi pas la bonne fonction
merci pour aide

[Mat.M]

salut utiliser Spy++ l'outil de Microsoft pour voir si vous obtenez les bons handle de fenêtre.
Avec EnumChildWindows ça devrait fonctionner normalement.

[ShaiLeTroll]

FindWindowEx permet de créer l'arbre tous les enfants depuis une fenêtre

Par exemple remplir un Dialogue d'imprimante Fichier automatiquement : https://www.developpez.net/forums/d7...g/#post4215684



Un vieux code que j'ai depuis Phidels en D4 ( peut-être D5 )

[tintin62]

bonjour
"ShaiLeTroll" je ne trouve pas ton programme qui tu as mis dans la discussion " tueur de processus"
si tu pouvais me mettre un autre lien de téléchargement stp
les fenêtres ou je ne peux voir ce qui as dedans sont de class "QT5QWINDOW"
++

[wheel]

Il y a une autre approche plus simple et plus pratique (selon le contexte) par l'utilisation de WindowFromPoint pour récupérer le handle de la fenêtre pointée par la sourie.

code suivant trace un rectangle rouge autour de la fenêtre trouvée,
pour l'utiliser appuyer le SpeedButton et maintenir et pointer vers le bouton que tu souhaite récupérer son handle (une fois la sourie relâchée)

FindWinHandle.zip

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
var
  FindW:boolean;
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  WindowState:= wsMinimized;
  FindW := True;
  TrackWin();
end;
 
procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FindW := False;
end;
 
procedure TForm1.TrackWin();
const BORDSIZE = 3;
var
 R1,R2:HRGN;
 Pt :TPoint;
 cHwnd,old:THandle;
 R:TRect;
 cForm:TForm;
 B:array[byte] of char;
begin
   cForm:= TForm.Create(nil);
   cForm.Color :=clRed;
   cForm.BorderStyle:=bsNone;
   cHwnd :=0;
   try
     while FindW do
     begin
          Sleep(50);
          Application.ProcessMessages();
          GetCursorPos(Pt);
          cHwnd:= WindowFromPoint(Pt);
          if (cHwnd = old) or (cHwnd = Handle) or (cForm.Handle = cHwnd) then
             continue;
          GetWindowRect(cHwnd,R);
          Windows.InflateRect(R,BORDSIZE,BORDSIZE);
          cForm.Hide;
          SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top, R.Width, R.Height , 0);
          R1:= CreateRectRgn(0, 0, R.Width, R.Height);
          R2 := CreateRectRgn(BORDSIZE, BORDSIZE, R.Width - BORDSIZE, R.Height - BORDSIZE);
          CombineRgn(R1, R1, R2, RGN_XOR);
          SetWindowRgn(cForm.Handle, R1, True);
          DeleteObject(R1);
          DeleteObject(R2);
          cForm.Show;
          old :=cHwnd;
     end;
   finally
      cForm.Free;
   end;
   WindowState :=wsNormal;
   B:='';
   Edit1.Text:='0x'+inttohex(cHwnd,8) ;
   if cHwnd <> 0 then
      GetClassName(cHwnd,@B,256);
   Edit2.Text := B ;
end;

[tintin62]

bonsoir
merci pour ton programme
par contre je travaille avec delphi 7 et il ne connait pas r.width et r.height
SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top, R.Width, R.Height , 0);
mais ce n'est que visuel sur des formes créer par delphi pas de problème Handle il
me les met avec en plus sa class
mais ma fenêtre a moi elle est QTQWINDOW et si je me met sur le bouton rien ne se passe
sauf me dire le handle de la fenêtre