Código
var
Buffer : Array[0..99] of char;
begin
GetWindowText(Wnd,Buffer,100);
if StrLen(Buffer) <> 0 then
Form.ListBox1.Items.Add(StrPas(Buffer) + ' - ' + TimeToStr(NOW));
Result := True;
end;
//para chamar essa função coloque no evento onClick de um Button, por exemplo
begin
EnumWindows(@EnumWindowsProc,LongInt(Self));
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009