Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
eduardoserrao Novato


Registrado: Segunda-Feira, 28 de Novembro de 2016 Mensagens: 78
|
Enviada: Qua Out 30, 2019 5:49 pm Assunto: Abrir instancia de aplicação já aberta. |
|
|
Pessoal,
Gostaria de saber se é possível chamar uma instancia de aplicação já aberta.
Exemplo:
Tenho o Meu.exe, quando dou dois cliques no ícone ele abre a aplicação.
Eu queria que quando eu desse dois cliques no icone denovo ele exibisse a aplicação que já esta aberta. Evitando abrir a aplicação mais de uma vez.
Só achei como jogar mensagem para impedir abrir 2 vezes.
Alguém sabe se isso é possível? |
|
Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Qui Out 31, 2019 11:38 am Assunto: |
|
|
No arquivo dpr (menu Project -> View Source), acrescente Windows na uses e tente o código abaixo:
Código: | var
Handle: Thandle;
begin
// Verifica se o aplicativo já esta aberto
Handle := FindWindow('TFormPrincipal', nil); // Troque TFormPrincipal pelo nome da classe do seu form principal
if Handle <> 0 then
begin // Já está aberto
ShowWindow(Handle, SW_RESTORE);
SetForegroundWindow(Handle);
Exit;
end;
... // continuação do código
|
_________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
Voltar ao Topo |
|
 |
|