WinExec executar aplicativo uma vez apenas!

Delphi

13/07/2015

olá pessoal,

uso o seguinte comando para abrir a calculadora:

WinExec('Calc.Exe',SW_SHOWNORMAL);


e gostaria que ao clicar novamente sobre este botão ele mostrasse a calculadora ativa (caso exista), ao invés de a cada clique abrir uma calculadora diferente.

é possível???
Armando Luiz

Armando Luiz

Curtidas 0

Melhor post

Armando Luiz

Armando Luiz

14/07/2015

Olá, consegui resolver...

var
  hCalcWindow: HWND;
begin
  // Localizar uma janela baseado apenas em seu título
  hCalcWindow := FindWindow(nil, 'Calculadora');
  // encontramos a janela?
  if hCalcWindow <> 0 then
    begin
     // Exibe (mostra a frente) a última janela usada com este nome
     SetForegroundWindow (hCalcWindow);
    end
  else
    begin
     // Abre a calculadora caso não houver nenhuma calculadora aberta
     WinExec('Calc.Exe', SW_NORMAL);
    end;
end;
GOSTEI 2

Mais Respostas

Dorivan Sousa

Dorivan Sousa

13/07/2015

verifcar se a calculadora nao esta em execução

usa findWindow
GOSTEI 0
Armando Luiz

Armando Luiz

13/07/2015

n conheço este comando, poderia me passar um exemplo??
GOSTEI 0
POSTAR