A função EnumWindows() da API do Windows pode ser usada para listar todas as janelas de alto-nível abertas no momento (ainda que não visíveis na tela). Veja sua assinatura:
Este trecho de código ou resolução de exercício faz parte do Super Pack 12.000 Dicas e Truques de Programação e 1.500 Exercícios Resolvidos em Java, Python, VisuAlg, Portugol, Delphi, C#, C, C++, VB.NET, Golang, Pascal, Ruby, PHP, e várias outras linguagens.
Aprenda a programar resolvendo problemas do mundo real. Tudo em português, com comentários em português.
Quero Ser Apoiador(a) |
Note que esta função requer um ponteiro para uma função de Callback a ser definida em nosso código Delphi. Podemos ainda usar o parâmetro lParam para passar uma referência a um determinada controle do formulário, tal como um TMemo ou TListBox. Veja a assinatura para a função de Callback:
Este trecho de código ou resolução de exercício faz parte do Super Pack 12.000 Dicas e Truques de Programação e 1.500 Exercícios Resolvidos em Java, Python, VisuAlg, Portugol, Delphi, C#, C, C++, VB.NET, Golang, Pascal, Ruby, PHP, e várias outras linguagens.
Aprenda a programar resolvendo problemas do mundo real. Tudo em português, com comentários em português.
Quero Ser Apoiador(a) |
Note que esta função de Callback é chamada para cada janela encontrada e nos permite acesso à janela sendo listada no momento por meio do parâmetro hwnd, que é um handle para a janela. Novamente podemos usar o parâmetro lParam para acessar o TMemo ou TListBox passado pela função EnumWindows.
Vamos ao código agora. Veja como listar todas as janelas de alto-nível ativas no momento. Note que vamos exibir apenas as janelas que contenham um título (remova esta condição caso queira listar todas):
Este trecho de código ou resolução de exercício faz parte do Super Pack 12.000 Dicas e Truques de Programação e 1.500 Exercícios Resolvidos em Java, Python, VisuAlg, Portugol, Delphi, C#, C, C++, VB.NET, Golang, Pascal, Ruby, PHP, e várias outras linguagens.
Aprenda a programar resolvendo problemas do mundo real. Tudo em português, com comentários em português.
Quero Ser Apoiador(a) |
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.
|
Link para compartilhar na Internet ou com seus amigos:
