Hola que tal, bueno a lo que me referia dando de ejemplo un código que está posteado en la página:
Código:
#include <io.h>
#include <dir.h>
void ListFiles(char *Dir, TListBox *LB)
{
struct _finddata_t fdt;
long hFile;
char tmp[MAX_PATH];
chdir(Dir);
fdt.attrib = _A_SUBDIR;
if( (hFile = _findfirst("*.*", &fdt) ) != -1) {
do {
if (fdt.attrib == _A_SUBDIR) {
if (strcmp(fdt.name,".")!= 0 && strcmp(fdt.name,"..") != 0) {
strcpy(tmp, Dir);
strcat(tmp, "\\");
strcat(tmp, fdt.name);
ListFiles(tmp, LB);
}
}
else
LB->Items->Add(String(fdt.name));
} while (_findnext(hFile, &fdt) == 0);
_findclose(hFile);
};
}
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListFiles("C:\\UNA_CARPETA", ListBox1);
}
en vez que directamente me aparesca todos los nombres de los archivos en un listbox, me vayan apareciendo cada nombre de archivo listado en un label cada 5 segundos, obviamente cada nombre de archivo se sobrepone sobre el anterior.
Así como el siguiente ejemplo:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Contador <= 10)
{
Timer1->Enabled = true; // habilito el Timer1
Timer1->Interval = 500;
Label1->Caption = Contador; // intervalo de tiempo
Contador++; // aumento el contador en 1
}
else
{
Timer1->Enabled = false; // Deshabilito el Timer1
Contador = 0; //Pongo el contador a 0
}
}
el código en si lo que hace, es que al ejecutar el button, en un label vayan apareciendo los numeros del 1 al 10 en un intervalo de 500.
es para hacerlo más dinámico y bonito a los ojos del usuario.
Saludos.