Alternar de Janela do Windows com DELPHI

Delphi

Windows Universal

17/02/2017

Olá, estou com um problema no qual eu precisava Alternar a Janela do Windows através de instrução de um código pelo Delphi, por exemplo: Eu consigo abrir uma aplicação pelo Delphi se essa aplicação estiver fechada, porém se tal aplicação já estiver aberta eu gostaria apenas de Alternar para essa Aplicação como se fosse apertar a Tecla de atalho do Windows ALT + TAB, a unica diferença é que eu gostaria de informar qual Aplicação Aberta eu quero que seja Exibida.

Atualmente eu tenho feito isso para abrir a Aplicação que esta fechada:

var sCaminhoEXE : String;

sCaminhoExe := ExtractFilePath(Application.ExeName) + 'Aplicacao.Exe';
HprevHist := FindWindow(Nil, PWideChar("Nome da Minha Aplicação no Gerenciador de Tarefas"));

if HprevHist = 0 then
ShellExecute(Handle,nil, PWideChar(sCaminhoExe),nil,nil,SW_NORMAL)

Desta forma eu verifico se a aplicação esta fechada, então ele abre. Agora se estiver aberta preciso que seja alternada para ela quando eu passar algum comando. Alguém sabe como fazer isso?
Wesley Souza

Wesley Souza

Curtidas 0
POSTAR