procedure TForm1.Timer1Timer(Sender: TObject);
Var
WindowName : array[0..MAX_PATH] of char;
H: THandle;
begin
GetWindowText(GetForegroundWindow,WindowName,MAX_PATH);
Memo1.Lines.Add(WindowName);
end;
Para voce poder testar essa implementacao ai, coloque um Timer e no evendo
onTimer coloque o codigo acima, coloque tb um Memo no sue programa, como
imagino que seu programa ficara oculto ou ao lado do relogio, basta voce
minimizar ele e ele funcionara da maneira que voce quer.......
O primeiro parametro de GetWindowText, GetForeGroundWindow diz que é para
pegar a janela ativa, neste parametro, voce poderia trocar apenas pelo do
Internet Explorar, mas tem que passar o handle do aplicativo, ai complica em
mais algumas linhas de codigo... mas essa solucao acima ja ajuda......
----- Original Message -----
From: "relsi_maron" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, May 31, 2006 5:39 PM
Subject: [delphi-br] Controlando o Explorer
Olá pessoal,
Eu gostaria de saber o seguinte, qual a maneira de implementar um
programa que rode em background, e quando o Internet Explorer for
iniciado ele leia o que está escrito na barra de título do mesmo, e
caso encontre no título a palavra 'Sexo', por exemplo, ele feche o
navegador.
O que estou tentando implementar é um aplicativo que monitore se a
pessoa está navegando em uma categoria de sites não permitidos.
Era isso, se alguém puder dar uma força, eu agradeço de antemão.
Um abraço
Relsi Hur
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.7.4/351 - Release Date: 29/05/2006
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://mail.yahoo.com.br/
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.