Veja assim como pode ser com os 2.
var
H : HWnd;
begin
H := FindWindow(Nil,'Calculadora');
if H > 0 then
ShowWindow(H, SW_SHOWDEFAULT)
else
WinExec('calc.exe', SW_SHOW);
end;
Eduardo
jones silva escreveu:
> Não seria assim :
>
> WinExec('calc.exe', SW_SHOW);
>
>
> conexaoi <[EMAIL PROTECTED]> escreveu:
>
> Olá amigos, uma mãozinha por favor....
>
> Estou tentando usar uma função em que ao clicar em um botão o meu
> form se desative e ative uma calculadora que já está aberta. Eu
> encontrei mais ou menos assim... Se dé para dá uma ajudinha,
> agradeço
>
> var
> H : HWnd;
>
> begin
> H := FindWindow(Nil,'Calculadora');
> ShowWindow(H, Sw_restore);
> end;
>
>
> Abraços!!!!
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Você quer respostas para suas perguntas? Ou você sabe muito e quer
> compartilhar seu conhecimento? Experimente o Yahoo! Respostas!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
