[Delphi] Récupérer les infos affichées par une autre appli

Récupérer les infos affichées par une autre appli [Delphi] - Delphi/Pascal - Programmation

Marsh Posté le 15-07-2004 à 18:17:29    

Je me demandais : est'il possible de récupérer les infos affichées par une autre appli ?
 
Le problème de la reconnaissance des chiffres n'est pas un vrai souci, la police utilisée étant classique et de taille fixe ( donc bon, 10 bitmaps à comparer et basta ).  
 
Mon problème est de savoir si il est possible de récupérer en delphi l'intérieur d'une fenetre d'une autre appli, si possible quand celle-ci est minimisée dans le tray ...
 
Par exemple récupérer le contenu de la fenêtre dans un gros bitmap que je peux ensuite décortiquer :)
 
Merci d'avance pour vos précieux conseils, j'ai pas trouvé grand yauq' sur google :/


Message édité par Tetedeiench le 15-07-2004 à 18:27:44
Reply

Marsh Posté le 15-07-2004 à 18:17:29   

Reply

Marsh Posté le 15-07-2004 à 18:31:14    

Oui il est tout à fais possible ;)
 
Mais je ne suis pas doué pour ca ;)
 
regarde ce source :
 

Code :
  1. program Project1;
  4. uses
  5.   Windows,
  6.   shellapi,
  7.   messages;
  9. {$R *.RES}
  11. var
  13. TimeCount            : integer;
  15. TetrisMainHandle     : integer;
  16. ClientSettingshandle : integer;
  17. IPserveurHandle      : integer;
  18. ConnectBOutonHandle  : Integer;      //Differentes Handles Recherchées
  19. DialogBoutonHandle   : Integer;
  21. Serveur          :  string;
  22. TetrisDir        :  string;
  23. TetrisWIndowText :  string;
  24. const
  26. TimeOUT            : Integer= 100                      ;
  29. ClientSettingsText       : string = 'Client Settings '        ;
  30. IPserveurClass           : string = 'TEdit'                   ;
  31. ConnectBOutonTExt        : string = 'Connect'                 ;
  32. DialogBoutonText         : string = 'Partyline '              ;
  34. Erreur_Title             : string = 'TetrisNet introuvable ou deja ouvert => fermeture de fast tetris.'   ;
  35. erreur_Text              : string = 'Erreur'                  ;
  37. DefaultServeur           : string = 'tetrinet-progfou.no-ip.org';
  38. DefaultTetrisApp         : string = 'C:\Program Files\Divers\TetriNET\TETRINET.EXE';
  39. DefaultTetrisWIndowText  : string = 'TetriNET v1.13'          ;
  41. BaliseVersion      : string = 'Version='                ;
  42. BaliseServeur      : string = 'Serveur='                ;
  43. BaliseTetris       : string = 'AppDir='                 ;
  44. //Ces constantes correspondent a un programme particulié
  46. {$I-}
  48. Function TestTetrisApp : integer;
  49. var
  50. F :file;
  51. Begin
  52.    assignfile(F,TetrisDir);
  53.    reset(F);
  54.    result :=  filesize(F) ;
  55.    closefile(f);
  56. end;
  58. {Func TestTetrisApp}
  61. Procedure LoadParams;
  62. var
  63. I : integer;
  64. ligne : string;
  65. Begin
  66.    Serveur              := DefaultServeur  ;
  67.    TetrisDir            := DefaultTetrisApp;
  68.    TetrisWIndowText     := DefaultTetrisWIndowText;
  69. for I := 0 to paramcount do
  70.         Begin
  71.   ligne := paramstr(I) ;
  72.      if copy(Ligne,1,length(BaliseServeur)) = BaliseServeur then
  73.      Begin
  74.      if pos('"',ligne) <> 0 then  begin
  75.                         ligne := copy(ligne,pos('"',ligne),length(ligne));
  76.                         if pos('"',ligne) <> 0 then ligne := copy(ligne,pos('"',ligne),length(ligne));
  77.                                   end else ligne := copy(ligne,Length(baliseserveur)+1,length(ligne));
  78.      Serveur := ligne ;
  79.      end;
  81.         if copy(Ligne,1,length(BaliseTetris)) = BaliseTetris then
  82.      Begin
  83.      if pos('"',ligne) <> 0 then  begin
  84.                         ligne := copy(ligne,pos('"',ligne),length(ligne));
  85.                         if pos('"',ligne) <> 0 then ligne := copy(ligne,pos('"',ligne),length(ligne));
  86.                                   end else ligne := copy(ligne,Length(BaliseTetris)+1,length(ligne));
  87.      TetrisDir := ligne ;
  88.      end;
  89.           if copy(Ligne,1,length(BaliseVersion)) = BaliseVersion then
  90.      Begin
  91.      if pos('"',ligne) <> 0 then  begin
  92.                         ligne := copy(ligne,pos('"',ligne),length(ligne));
  93.                         if pos('"',ligne) <> 0 then ligne := copy(ligne,pos('"',ligne),length(ligne));
  94.                                   end else ligne := copy(ligne,Length(BaliseVersion)+1,length(ligne));
  95.      TetrisWIndowText := ligne ;
  96.      end;
  97.         end;
  99. end;
  101. {Proc LoadParams}
  103. function Test_Edit(hWnd: integer; lParam: integer): boolean;  stdcall;
  104. var
  105.    Classe : array[0..250] of Char;
  106. begin
  107.   result := true;
  108.   GetClassName(hWnd,Classe,SizeOf(Classe));
  109.   if Classe = IPserveurClass then begin
  110.   IPserveurHandle := hWnd;
  111.   result := not IsWindowVisible(hWnd);
  112.                                    end;            //Cette Function Callback n'identifiera
  113.                                                    //Que le composant Tedit de l'adresse du serveur.
  114. end;
  115. {Func CallBack Test_Edit}
  117. function Test_Btn(hWnd: integer; lParam: integer): boolean;  stdcall;
  118. var
  119.    Text : array[0..250] of Char;
  120. begin
  121.   result := true;
  122.   GetWindowText(hWnd,text,SizeOf(text));
  123.   if Text = ConnectBOutonTExt then begin
  124.   ConnectBOutonHandle := hWnd;
  125.   result := not IsWindowVisible(hWnd);
  126.                                    end;            //Cette Function Callback n'identifiera
  127.                                                    //Que le composant Tbouton de l'adresse du serveur.
  128. end;
  129. {Func CallBack Test_Btn}
  132. Procedure EnvoyerText(Handle : integer;Text : string);
  133. begin
  134. SendMessage(Handle,WM_SetText,0, integer(Pchar(text)));   //Cette procedure Ajoute un text particulier
  135. end;                                                      //a un compo donné.
  136. {Proc EnvoyerText}
  141. Procedure Cliquer(Handle : integer);
  142. begin
  143. SendMessage(Handle,WM_LbuttonDown, MK_LBUTTON, 0);       //cette serie de message assure un clique
  144. SendMessage(Handle,WM_LbuttonUp, MK_LBUTTON , 0);
  145. end;
  146. {Proc Cliquer}
  149. {((((((((((((((((((((((((((((Demarrage Du PROGRAMME))))))))))))))))))))))))) }
  150.                                      begin
  151. {((((((((((((((((((((((((((((Demarrage Du PROGRAMME))))))))))))))))))))))))) }
  153.                               {Codes du programme}
  154. loadParams;
  157. if TestTetrisApp = -1 then begin
  158. MessageBox(0,Pchar(erreur_title),Pchar(erreur_text),0);
  159. exit;
  160.                            end;
  162. Shellexecute(0,'Open',Pchar(TetrisDir),'','',0);      //Lancement de Tetris
  164. TimeCount := 0;
  166. While (findwindow(nil,Pchar(TetrisWIndowText)) = 0) do  //attente de chargement de tetris
  167.         Begin sleep(500);inc(TimeCount);if (TimeCount = Timeout) then  exit; end;
  169. TetrisMainHandle := findwindow(nil,Pchar(TetrisWIndowText));  //fenetre principale
  171. While (findwindowEx(TetrisMainHandle,0,nil,Pchar(ClientSettingsText)) = 0) do  //attente de chargement de tetris
  172.         Begin sleep(500);inc(TimeCount);if (TimeCount = Timeout) then  exit; end;
  174. ClientSettingshandle := findwindowEx(TetrisMainHandle,0,nil,Pchar(ClientSettingsText)); //volet connection
  175. DialogBoutonhandle := findwindowEx(TetrisMainHandle,0,nil,Pchar(DialogBoutonText)); //volet connection
  177. cliquer(ClientSettingshandle); //active le volet de connection
  178. sleep(200);
  180. EnumchildWindows(ZeldaMainHandle,@Test_Edit,0);  //va reperer le Tedit a l'aide d'un enum
  181. if IPserveurHandle <> 0 then
  182.         EnvoyerText(IPserveurHandle,Serveur)       //ajoute le text au Tedit
  183.                         Else Exit;
  185. EnumchildWindows(TetrisMainHandle,@Test_Btn,0);  //va reperer le Bouton a l'aide d'un enum
  186. if ConnectBOutonHandle <> 0 then
  187.         cliquer(ConnectBOutonHandle)     //clique sur le bouton Connect
  188.                         Else Exit;
  190. cliquer(DialogBoutonhandle);
  192. SetWindowText(TetrisMainHandle,Pchar(TetrisWIndowText+' Launch By Bodman'));
  194. end.


 
 
Tu peus le modifier à volonté ;)


---------------
En theorie la pratique est égale a la théorie, en pratique ce n'est pas le cas.
Reply

Marsh Posté le 15-07-2004 à 18:44:04    

Merci :jap:  
 
Le prends pas mal cependant, va me falloir un peu de temps pour capter ce que ton programme fait ;)

Reply

Marsh Posté le 15-07-2004 à 18:46:50    

Ben c'est pour controler Tétrinet ;)
 
Mais bon tu peus testé avec notepad ou je ne sais quoi d'autre


---------------
En theorie la pratique est égale a la théorie, en pratique ce n'est pas le cas.
Reply

Marsh Posté le 15-07-2004 à 18:48:50    

Amokers a écrit :

Ben c'est pour controler Tétrinet ;)
 
Mais bon tu peus testé avec notepad ou je ne sais quoi d'autre


 
Yep, mais si tu veux c'est pas "naturel" ( non pas que ce soit mal codé hein ).
 
Enfin merci énormément :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed