[novato_erick]

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;//  aquí puse de esta menera para que me reconociera el archivo C:\EDD TXT TECNOLOGIA\Actualizaciones\PVSis\*.*
var
  SR: TSearchRec;
begin
  Result := -1;
  try
    if System.SysUtils.FindFirst(sFileToExamine, faSysFile, SR) = 0 then //se se pone 'C:\EDD TXT TECNOLOGIA\Actualizaciones\PVSis\MiEjecutable.exe' nada trae 
    begin
      {$WARN SYMBOL_PLATFORM OFF}
     Result := UInt64(SR.FindData.nFileSizeLow)+
      (UInt64(SR.FindData.nFileSizeHigh)*UInt64(1 shl 32));
      {$WARN SYMBOL_PLATFORM ON}
      //Mi resultado es Diferente al de las propiedades del ejecutable.
     end;
  finally
    System.SysUtils.FindClose(SR);
  end;
end;

podrían alguien con más experiencia porque sucede esto?

Saludos;

novato_erick