Fórum Comando FindWindow #189924
21/10/2003
0
Boa tarde pessoal,
estou estudando um exemplo no qual usam o comando FindWindow..
ex.
mas aonde eu encontro estes parametros por exemplo o xlmain do excel o OpusApp do word etc..
valeu
Eric
estou estudando um exemplo no qual usam o comando FindWindow..
ex.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | { Verifica o Delphi } if FindWindow(´TAppBuilder´, nil ) > 0 then ShowMessage(´O Delphi está aberto´) else ShowMessage(´O Delphi NÃO está aberto´); { Verifica o Word } if FindWindow(´OpusApp´, nil ) > 0 then ShowMessage(´O Word está aberto´) else ShowMessage(´O Word NÃO está aberto´); { Verifica o Excell } if FindWindow(´XLMAIN´, nil ) > 0 then ShowMessage(´O Excell está aberto´) else ShowMessage(´O Excell NÃO está aberto´); end ; |
mas aonde eu encontro estes parametros por exemplo o xlmain do excel o OpusApp do word etc..
valeu
Eric

Eric.miranda
Curtir tópico
+ 0
Responder
Posts
21/10/2003
Beppe
Utilize o WinSpy que vem com o Delphi, ele exibe o nome das janelas abertas.
Ataliba
Ataliba
Responder
Gostei + 0
21/10/2003
Marcelo Saviski
Tenta isso:
coloca um timer
e no ontimer:
var
Pos: TPoint;
HWin: THandle;
begin
HWin := WindowFromPoint(Pos);
{existe uma funão que retorna o nome da classe de uma janela, que é o que precisa , não me lembro qual é ela, mas passe HWin como parametro p/ ela}
end;
isso pega a janela que está na posição do mouse
coloca um timer
e no ontimer:
var
Pos: TPoint;
HWin: THandle;
begin
HWin := WindowFromPoint(Pos);
{existe uma funão que retorna o nome da classe de uma janela, que é o que precisa , não me lembro qual é ela, mas passe HWin como parametro p/ ela}
end;
isso pega a janela que está na posição do mouse
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)