Alexandre;
Boa tarde... tente a dica a seguir.
procedure TForm1.Button1Click(Sender: TObject);
var
vHandle : THandle; { Variavel para manipular a janela }
begin
{
FindWindow
procura uma janela,
precisa de dois parametros... 1) Classe da janela que estamos
procurando
2) Caption da janela
como nao sabemos a classe (eu nao sei) da janela do Word, passamos o
primeiro parametro como nil,
e o segundo com o nome que esta sendo mostrado na barra de titulo
se a funcao obter sucesso a variavle vHandle vai ter um valor
diferente de 0;
}
vHandle := FindWindow(nil, 'Documento1 - Microsoft Word');
{ Verificamos entao de encontrou a janela }
if vHandle <> 0 then begin
{ A funcao IsIconic, resulta em True caso o aplicativo (com o
vHandle) esteja minizado }
if IsIconic(vHandle) then ShowMessage('Word Aberto e Minimizado')
else ShowMessage('Word Aberto e nao
Minimizado');
end else
ShowMessage('Janela "Documento1 - Microsoft Word" não encontrada');
end;
Atenciosamente
Elazar
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de alxeng2002
Enviada em: sexta-feira, 6 de janeiro de 2006 11:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Saber aplicativo se esta minimizado??
Olá
Alguém tem alguma sugestão??, estou tentando usar o GetMessage, mas
sem sucesso...
Valeu
Alexandre
--- Em delphi-br@yahoogrupos.com.br, "alxeng2002" <[EMAIL PROTECTED]> escreveu
>
> Olá
>
> Gostaria saber como posso verificar, por exemplo, se o Word esta
> minimizado? Já fiz pesquisas na net mas só acho exemplo para o proprio
> form...e não para programas externos..
>
> Grato,
>
> Alexandre
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fjph44l/M=387526.7663462.8644437.1588051/D
=brclubs/S=2137111264:HM/Y=BR/EXP=1136566547/A=3221952/R=2/id=noscript/S
IG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076
&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.
dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Dd
hs>
_____
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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
