Comando FindWindow
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.
{ 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
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
Clique aqui para fazer login e interagir na Comunidade :)
