webrodex 0 Denunciar post Postado Fevereiro 13, 2007 Como avisar que 1 programa determinado foi aberto? exemplo se eu abrir o word o delphi me avisa que o word foi aberto como fazer? Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Fevereiro 13, 2007 Uma das formas seria monitorar o gerenciador de tarefas, e verificar se a aplicação desejada esta aberta. Compartilhar este post Link para o post Compartilhar em outros sites
Paulo César Duarte 0 Denunciar post Postado Abril 22, 2007 Segue abaixo a rotina completa de como capturar através do Delphi o título do programa que está aberto:unit Unit1;interfaceuses Windows, Forms, ExtCtrls, Controls, StdCtrls, Classes;type TForm1 = class(TForm) Memo1: TMemo; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; JanAnt, JanAtual: String; // Declare aquiimplementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);//var// JanAnt, JanAtual: String;begin// CAPTURA A JANELA ATUAL setlength(JanAtual, 255); GetWindowText(GetforegroundWindow, PChar(JanAtual), 255);begin // Se a janela anterior é diferente da que foi aberta if JanAtual <> JanAnt then // Envia o título da janela para o memo Memo1.Lines.Add('>>> ' + JanAtual); // Atualiza a janela anterior com o título da janela atual JanAnt:= JanAtual; end;end;//==============================================================================end. Compartilhar este post Link para o post Compartilhar em outros sites
Hewitt 14 Denunciar post Postado Abril 1, 2008 Desculpe ressucitar o tópico, mas qual o tempo no timer que eu tenho que colocar? Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Abril 1, 2008 Desculpe ressucitar o tópico, mas qual o tempo no timer que eu tenho que colocar? Pode deixar em 1 segundo mesmo. Compartilhar este post Link para o post Compartilhar em outros sites