Estimados Compañeros:
El tema de obtener el tamaño del fichero es super viejo sin embargo ha realizar la función en Delphi para obtener dicho tamaño no me coincide con el real del ejecutable y además al poner la ruta con el nombre del ejecutable.exe correcto no obtengo nada.
Mi duda es:
1- Porque al poner solamente esto 'C:\EDD TXT TECNOLOGIA\Actualizaciones\PVSis\*.*' si me trae el archivo único que tengo como ejecutable.
pero al poner completo esto: 'C:\EDD TXT TECNOLOGIA\Actualizaciones\PVSis\MiEjecutable.exe' no obtengo el tamaño de archivo.
2- Porque Windows me muestra 49.09 MB y la función me devuelve 50.89MB
Código Delphi
[-]
function tamanoFichero (const sFileToExamine: UnicodeString): Int64;var
SR: TSearchRec;
begin
Result := -1;
try
if System.SysUtils.FindFirst(sFileToExamine, faSysFile, SR) = 0 then begin
{$WARN SYMBOL_PLATFORM OFF}
Result := UInt64(SR.FindData.nFileSizeLow)+
(UInt64(SR.FindData.nFileSizeHigh)*UInt64(1 shl 32));
{$WARN SYMBOL_PLATFORM ON}
end;
finally
System.SysUtils.FindClose(SR);
end;
end;
podrían alguien con más experiencia porque sucede esto?
Saludos;
novato_erick