Discussion :

[tintin62]

bonsoir
pour le visuel du cadre j'ai du modifier je suis en delphi 7

Code :

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

1
2
3
4
5
6
 
          large:=r.Right-r.Left;
          haut:=r.Bottom-r.Top;
          SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top,large,haut, 0);
          R1:= CreateRectRgn(0, 0, R.Right, R.Bottom);
          R2 := CreateRectRgn(BORDSIZE, BORDSIZE, large - BORDSIZE, haut- BORDSIZE);

[Andnotor]

ma fenêtre a moi elle est QTQWINDOW et si je me met sur le bouton rien ne se passe

A ma connaissance Qt gère lui-même la représentation de ses contrôles, ils n'ont pas de handle au sens Windows.
Tout au plus pourrais-tu récupérer l'état enable par d'autres techniques tel que UIAutomation mais tu ne pourras pas le modifier.

[tintin62]

bonjour
un autre programme que j'ai trouve sur le site
http://https://codes-sources.commentcamarche.net/source/view/25667/929144#browser

handle sous le curseur faite return pour démarrer le programme

[ShaiLeTroll]

bonjour
"ShaiLeTroll" je ne trouve pas ton programme qui tu as mis dans la discussion " tueur de processus"
++

Tu devrais trouver le code de la fenêtre : https://www.developpez.net/forums/d8...e/#post5020600

et une autre version ArbreEnfant : https://www.developpez.net/forums/d4...e/#post2721593


Mais je pense comme Andnotor, QT c'est du Graphic à 100%, pas de dépendance à l'OS pour la GUI, donc tu es sur la mauvaise piste.

[wheel]

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

A la base le code était développé sous D7 et je lai modifié pour Delphi Tokyo.

WindowFromPoint ne capte pas les contrôles disabled (j'ai cru que vous avez réglé ce point)
Pour étendre la recherche il faudrait utiliser ChildWindowFromPointEx pour les inclure mais windows dans certains situations impose des restrictions donc elles peuvent échouer

J'ai supprimer le cadrant rouge

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
 
procedure TForm1.TrackWin();
var
 Pt :TPoint;
 cHwnd,old:THandle;
 B:array[byte] of char;
begin
     while FindW do
     begin
          Sleep(50);
          Application.ProcessMessages();
          GetCursorPos(Pt);
          cHwnd:=  WindowFromPoint(Pt);
          Windows.ScreenToClient(cHwnd , Pt);
          cHwnd := ChildWindowFromPointEx(cHwnd, Pt,0);
          if cHwnd = old then
             continue;
          if cHwnd  <> 0 then
          begin
             B:='';
             Edit1.Text:='0x'+inttohex(cHwnd,8) ;
             GetClassName(cHwnd,@B,256);
             Edit2.Text := B;
             old :=cHwnd;
          end;
     end;
end;