sexta-feira, 15 de outubro de 2010

Truques usando API do windows

Usando a API do windows podemos executar um programa externo, colocar a janela dele dentro da janela do nosso programa e capturar  texto de uma janela ou widget qualquer desse programa.

Qualquer programa feito e usando a api do windows pode ser usado dessa forma. Nossa cobaia oficial será a calculadora do windows, mas onde você ver calculadora pode ler "qualquer programa nativo win32, como msn, bloco de notas etc".

O exemplo foi feito em lazarus mas funciona perfeitamente em qualquer versão do Delphi. Tenha a unit Windows no seu uses.




procedure TForm1.btCapturarClaculadoraClick(Sender: TObject);
var
   //vamos dar apenas 5 tentativas pois pode ser que a "calculadora" não existe
   tentativas: integer;
   HandleCalc, HandleCaixaTexto: HWND;  //handles da calculatora
   TamanhoVisor: integer;
   TextoVisor: string;
begin
     //executamos a "calculadora" ou qualquer que seja o programa externo
     ShellExecute(Handle, nil,  'c:\windows\system32\calc.exe', nil, nil, SW_SHOWNORMAL);

     //enquanto não encontrarmos a janela do programa externo DENTRO da janela do nosso programa ou não for atingido o núimero de tentativas nós tentaremos colocar a janela do programa "calculadora" dentro da nossa janela
     while  (FindWindowEx(Handle, 0, 'SciCalc', 'Calculadora') = 0) or (tentativas < 5) do
     begin
          //FindWindowEx procura uma janela dentro de outra e FindWindow apenas procura uma janela
          HandleCalc:= FindWindow('SciCalc', 'Calculadora');
          Windows.SetParent(HandleCalc, Handle);
          Inc(tentativas);
          //um sleep para dar uma pausa de 1 ms
          Sleep(1);
     end;

     if HandleCalc > 0 then
     begin
          //obtem o primeiro filho da janela da calculadora
          HandleCaixaTexto := GetWindow(HandleCalc, GW_CHILD);
          //obtem o tamanho do texto na caixa
          TamanhoVisor:=SendMessage(HandleCaixaTexto, WM_GETTEXTLENGTH, 0, 0) + SizeOf(Char)*1;
          //seta o tamanho desse texto
          SetLength(TextoVisor, TamanhoVisor);
          //obtem o texto gravando-o em  TextoVisor. Integer(TextoVisor) é o mesmo que o endereço do array onde estão os chars da string
          SendMessage(HandleCaixaTexto, WM_GETTEXT, TamanhoVisor, Integer(TextoVisor));
          //mostraremos o texto da calculadora, como está recém iniciada será 0
          ShowMessage(Trim(TextoVisor));
     end;
end; 

Lembre-se que fechar seu programa não fechará a "calculadora" que está aberta. Para isso você deve fechar a calculadora antes ou fechá-la no gerenciador de tarefas.

Em um outro post veremos como podemos gerenciar e fechar tarefas usando a API do windows.

Have fun :)

Nenhum comentário:

Postar um comentário

Postagens populares

Marcadores

delphi (60) C# (31) poo (21) Lazarus (19) Site aos Pedaços (15) sql (13) Reflexões (10) .Net (9) Humor (9) javascript (9) ASp.Net (8) api (8) Básico (6) Programação (6) ms sql server (5) Web (4) banco de dados (4) HTML (3) PHP (3) Python (3) design patterns (3) jQuery (3) livros (3) metaprogramação (3) Ajax (2) Debug (2) Dicas Básicas Windows (2) Pascal (2) games (2) linguagem (2) música (2) singleton (2) tecnologia (2) Anime (1) Api do Windows (1) Assembly (1) Eventos (1) Experts (1) GNU (1) Inglês (1) JSON (1) SO (1) datas (1) developers (1) dicas (1) easter egg (1) firebird (1) interfaces (1) introspecção (1) memo (1) oracle (1) reflexão (1)