Get text from application window or other

Version imprimable

22/05/2007, 09h58
Ludo_360

Get text from application window or other
Salut,

J'ai besoin de récupérer du texte d'une application quelconque ( firefox, notepad...). Je peux récupérer le handle de la fenetre

Code:

handl:= Getforegroundwindow();

mais ça ne m'aide pas tellement...

A l'origine je récupèrais un handle grâce à la position du curseur de la souris:

Code:

Handl:= WindowFromPoint(Mouse.CursorPos)

Le handle est recherché grâce à un timer, puis mémorisé au clic de la souris
Code:

1 2 BGSouris:= getAsyncKeyState(VK_LButton)<0; if (BGSouris) then // memorise le handle
Ceci fonctionnait bien mais mon but est d'optimiser mon application ( pour une question pratique): cad de récupérer un handle qui correspond à la zone texte où le curseur est actif ( donc sans le clic de la souris).

J'ai essayé avec diverses fonctions mais je n'arrive pas à comprendre pourquoi on peut récupérer le handle correcte grâce à la souris et avoir autant de difficulté pour trouver la fonction qui me donnerait le même handle en recherchant la position du curseur actif.

J'ai tenté de trouver le control actif grâce à la fonction

Code:

GetCaptureControl()

mais pas moyen de retrouver un handle ou même juste une position en X et Y( dans ce cas il me suffirait de rechercher le handl grâce à la position.

Enfin voila, cela fait plusieurs fois que je sollicite de l'aide mais je pense que je ne formulais pas assez explicitement mon problème.

merci pour l'aide

ludo

Je retrouve le même handle:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
   MousePos : Tpoint;
   handl : HWND;
   control : TControl;
 
 
begin
// le but ici est de récupérer le handle du control ou le curseur est actif
   handl:= Getforegroundwindow();
   control:= ActiveControl;
   mousePos.X := Control.Left + Control.Width div 2;
   mousePos.Y := Control.Top + Control.Height div 2;
   MousePos := ClientToScreen(mousePos) ;
   handl:= WindowFromPoint(MousePos);
   edt_buf.Text:= 'Pos X : ' + inttostr(mousePos.X)+ '    Pos Y : ' + inttostr(mousePos.Y);
   edt_affich.text:= 'Handle_Courant = ' + inttostr(handl);
   if ((Handl) <> (Form_Clavier.Handle)) and (((MousePos.X < 0 ) or (MousePos.X > form_clavier.Width)) or ((MousePos.Y < 0) or (MousePos.Y > form_clavier.Height - 50))) then begin
      Handle_Cible:= Handl;
      edit_test.Text:= 'Handle_Cible = ' + inttostr(Handle_Cible);
   end;

merci quand même

ludo

22/05/2007, 11h19
Ludo_360

Ne marche pas en dehors de l'application
Activecontrol me renvoi le control actif mais seulement dans mon application.

La fonction GetCaptureControl parait plus appropriée, mais lorsque j'écris:
Code:

1 2 3 control:= getcapturecontrol(); mousePos.X := Control.Left + Control.Width div 2; // erreur sur cette ligne
au lancement de l'application un message d'erreur stipule qu'il y a une violation d'accès.

de l'aide svp

Ca marche nickel...

Je donne le source pour ceux que ça interesse:

Code:

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
 
 
(*******************************************************************************
***                                                                          ***
***                                 timer                                    ***
***                                                                          ***
*******************************************************************************)
 
 
function TMon_appli.GetCaretPosition(var APoint: TPoint): Boolean;
var handl: HWND;
  aID, mID: DWORD;
begin
  Result:= False;
  handl:= GetForegroundWindow;       // handle de la fenetre
  if handl <> 0 then
  begin
    aID:= GetWindowThreadProcessId(handl, nil);      // L'ID de cette application
    edt_clipbrd.Text:= inttostr(aID);
    mID:= GetCurrentThreadid;                        // L'ID de notre application clavier
    edt_clipbrd.Text:= edt_clipbrd.Text + '    ' +inttostr(mID);
    if aID <> mID then                               // si il y a deux applis
    begin
      if AttachThreadInput(mID, aID, True) then      // si on peut relier les deux appli (inputs)
      begin
        handl:= GetFocus;                            // récupère le focus
        if handl <> 0 then
        begin
          Result:= GetCaretPos(APoint);              // récupère la position du curseur actif
          Windows.ClientToScreen(handl, APoint);     // on se référencie par rapport a l'écran
        end;
        AttachThreadInput(mID, aID, False);          // on libère la liaison entre les deux applis
      end;
    end;
  end;
end;
 
(******************************************************************************)
procedure TMon_appli.Timer1Timer(Sender: TObject);
var
   CaretPos : Tpoint;
   handl : HWND;
begin
//   BGSouris:= getAsyncKeyState(VK_LButton)<0;       // Ne sert à rien, diminue l'accessiblité
// le but ici est de récupérer le handle du control ou le curseur est actif
   if not GetCaretPosition(CaretPos) then begin
      edt_buf.Text:= ('erreur: impossible de trouver la fenetre');
     // handle_Cible:= GetDesktopWindow();
      edit_test.Text:= 'Handle_Cible = ' + inttostr(Handle_Cible);
   end else begin
      handl:= WindowFromPoint(CaretPos);
      CaretPos:= ScreenToClient(CaretPos);
      edt_buf.Text:= 'Pos X : ' + inttostr(CaretPos.X)+ '    Pos Y : ' + inttostr(CaretPos.Y);
      edt_affich.text:= 'Handle_Courant = ' + inttostr(handl);
      if (handl <>Mon_appli.handle) and (handl <> Handle_Cible) then begin
         Handle_Cible:= Handl;
         edit_test.Text:= ' Handle_Cible = ' + inttostr(Handle_Cible);
      end;
   end;
end;

voila a++

ludo