Como pegar o título da janela ativa?
Você pode criar um Timer para ir atualizando um Label, por exemplo. Então
conforma a janela ativa, o label irá mostrar o título da mesma.
É necessário estar declarado SysUtils e Windows na seção uses,
em versões unicode declare System.SysUtils e Winapi.Windows.
Segue o código fonte da função:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| function GetTituloAtivo: string;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
Result := TrimRight(Title);
end;
end; |
function GetTituloAtivo: string;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
Result := TrimRight(Title);
end;
end;
Exemplo de uso:
1
2
3
4
5
6
7
| procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
begin
s := GetTituloAtivo;
ShowMessage(s);
end; |
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
begin
s := GetTituloAtivo;
ShowMessage(s);
end;
-
InfusTec
-
6.901 views
- 0 comentários
- 17 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo