type
TForm1 = class(TForm)
lsAplicaciones: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
idVentana : hWnd;
ptoRecpTexto : array [0..127] of Char;
begin
lsAplicaciones.Clear;
idVentana := GetWindow(Handle, gw_HWndFirst);
while idVentana <> 0 do
begin
if (idVentana <> Application.Handle) and
IsWindowVisible(idVentana) and
(GetWindow(idVentana, gw_Owner) = 0) and
(GetWindowText(idVentana, ptoRecpTexto, sizeof(ptoRecpTexto)) <> 0) then
begin
GetWindowText(idVentana, ptoRecpTexto, SizeOf(ptoRecpTexto));
lsAplicaciones.Items.Add(StrPas(ptoRecpTexto));
end;
idVentana := GetWindow(idVentana, gw_hWndNext);
end;
lsAplicaciones.ItemIndex := 0;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A