Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

webrodex

Como avisar que 1 programa determinado foi aberto?

Recommended Posts

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

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.