Comando FindWindow

Delphi

21/10/2003

Boa tarde pessoal,
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

Eric.miranda

Curtidas 0

Mais Respostas

Beppe

Beppe

21/10/2003

Utilize o WinSpy que vem com o Delphi, ele exibe o nome das janelas abertas.

Ataliba


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

21/10/2003

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


GOSTEI 0
POSTAR