sábado, 27 de novembro de 2010

Capturar o título da Janela Ativa - Delphi

procedure CapturarTituloJanelaAtiva();
var
h : THandle;
titulo : PChar;
tamanho : Integer;
begin
try
h := GetForegroundWindow;
tamanho := (GetWindowTextLength(h)+1) * SizeOf(Char);
GetMem(titulo,tamanho);
fillchar(titulo^, tamanho,#0);
GetWindowText(h, titulo, tamanho);
Memo1.Lines.Append(string(titulo) + ' - Data/Hora: ' + DateToStr(date) + ' - ' + TimeToStr(Time) );
finally
FreeMem(titulo, tamanho);
end;

end;


Para este método foi utilizado um Componente Memo para exibir os Títulos das janelas