Hola nuevamente.
Un ejemplo que implementa el procedimiento de
dec en el evento
OnClick de un
TButton:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
TS: TStrings;
begin
TS := TStringList.Create;
try
ArchivosDirectorio('C:\Windows\', '*.*', TS, True);
ListBox1.Items.Assign(TS);
finally
TS.Free;
end;
end;
Saludos
