Delphi.pdf


Aperçu du fichier PDF delphi.pdf - page 6/306

Page 1...4 5 678306


Aperçu texte


function DiskSize( Drive: Byte ): Int64;
Nos dice el tamaño total en bytes de una unidad de disco. Por ejemplo:
DiskSize( 3 ) devuelve 20974428160

BUSCANDO ARCHIVOS DENTRO DE UN DIRECTORIO
Para buscar archivos dentro de un directorio disponemos de las funciones:
function FindFirst( const Path: string; Attr: Integer; var F: TSearchRec ):
Integer;
Busca el primer archivo, directorio o unidad que se encuentre dentro de una
ruta en concreto. Devuelve un cero si ha encontrado algo. El parámetro
TSearchRec es una estructura de datos donde se almacena lo encontrado:
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;

function FindNext( var F: TSearchRec ): Integer;
Busca el siguiente archivo, directorio o unidad especificado anteriormente por
la función FindFirst. Devuelve un cero si ha encontrado algo.
procedure FindClose( var F: TSearchRec );
Este procedimiento cierra la búsqueda comenzada por FindFirst y FindNext.
Veamos un ejemplo donde se utilizan estas funciones. Vamos a hacer un
procedimiento que lista sólo los archivos de un directorio que le pasemos y
vuelca su contenido en un StringList:
procedure TFPrincipal.Listar( sDirectorio: string; var Resultado:
TStringList );
var
Busqueda: TSearchRec;
iResultado: Integer;
begin
// Nos aseguramos que termine en contrabarra
sDirectorio := IncludeTrailingBackslash( sDirectorio );