Delphi dicas

Retorna tamanho do arquivo (usando api windows)

Function TamanhodoArquivo(vArquivo: string): longword;

var

FileHandle: THandle;

FileSize: LongWord;

begin

        //a- Get file size

        FileHandle := CreateFile(PChar(vArquivo),

        GENERIC_READ,

        0, {exclusive}

        nil, {security}

        OPEN_EXISTING,

        FILE_ATTRIBUTE_NORMAL,

        0);

        FileSize   := GetFileSize(FileHandle, nil);

        Result     := FileSize;

        CloseHandle(FileHandle);

end;