Exibir o caption do form

Question

Gostaria de fazer um aplicativo que me mostrasse o que est� escrito na barra de titulo de uma outra aplica��o. Como fazer essa captura?Exemplo: O que est� parecendo na barra de titulo do meu IE agora ...

Raserafim · Answer

fernando,
ainda n�o tentei fazer isto, mas posso te adiantar que vc deve conseguir atrav�s do comando GetWindowText. Esta fun��o retorna o caption de qualquer tipo de componente que tenha um handle, ou seja qualquer componente estilo janela que seja gerenciado pelo windows, � o caso do form, de alguns bot�es, etc..
esta fun��o pede como par�metro o handle da janela que vc quer ver o caption (a� vc vai ter q d� um jeito pra saber qual � o handle), e mais 2 par�metros.
E se vc quser alterar o caption de qualquer janela pelo seu programa � s� usar SetWindowText (Handle, �caption q vc quer�). onde tem Handle vc substitui pelo Handle da janela q vc quer alterar.

Marcelo Saviski · Answer

Fa�a um teste, coloque um Timer, Interval = 100

no OnTimer:

var
  H: THandle;
  Texto: array[0..255] of Char;
begin
  with Mouse.CursorPos do
    H := WindowFromPoint(X, Y);  
  GetWindowText(H, Texto, SizeOf(Texto));
  Label1.caption := Texto;
end;

Isso deve mostrar em um labelo texto da janela aonde o cursor do mouse est�.

function GetWindows(Handle: HWND; Info: Pointer): BOOL; stdcall;
var
  Texto: array[0..255] of Char;
begin
  Result := True;
  GetWindowText(H, Texto, SizeOf(Texto));
  Memo1.Lines.Add(Texto);
end;

Esse outro deve adicionar em um memo o caption de todas as janelas ativas, para exibir, chame:

Memo1.Lines.Clear;
EnumWindows(@GetWindows, nil);

[size=10:762819d872][url=http://www.delphi-central.com/enum.aspx]Fonte.[/url][/size:762819d872]

Ou para exibir o texto da janela ativa, de uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=49294&highlight=getwindowtext]nesse outro t�pico[/url]

Fernando Lemp� · Answer

Obrigado, as dicas foram de grande proveito para mim, por�m eu queria o texto de uma janela espec�fica, uma janela que eu escolhesse. Como seria?...

R�mulo Barros · Answer

[quote:012343b3ce=�Fernando Lemp�]Obrigado, as dicas foram de grande proveito para mim, por�m eu queria o texto de uma janela espec�fica, uma janela que eu escolhesse. Como seria?[/quote:012343b3ce]

Como vc escolheria? :?: :?: :?:

Fernando Lemp� · Answer

No caso, se eu quisesse que ele me mostrasse o caption do IE, como faria? Ou o caption do Word? eu entendi que preciso ter o handle da aplica��o para meu programa saber de quem ele buscar� o caption.
Seria poss�vel?

Fernando Lemp� · Answer

Finalmente, apos adapta��es e testes consegui o que estava procurando utilizando tambem a ajuda dos amigos do forum.

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
  WindowName: Array[0..255] of Char;
begin
  H :=FindWindow(�nome do programa�,nil);
  GetWindowText(H, WindowName, SizeOf(WindowName));
  label1.Caption := �Nome-> �+WindowName;
end;

O nome do programa pode ser obtido atrav�s do aplicativo WinSight32.

F�rum Exibir o caption do form #274104