Hola amigos.
Hace tiempo que estoy usando esta funcion para obtener el tamaño de un archivo desde un programa que corre como servicio.
El problema lo tengo con un cliente que lo esta ejecutando en una maquina virtual con Windows Server 2008 sp2 y la función en lugar de devolverme el tamaño me esta devolviendo una fecha.
En otras maquinas virtuales con el mismo SO no pasa.
Alguna pista?
Código Delphi
[-]
function GetHugeFileSize(const name: string): Integer;
var a: TWin32FileAttributeData;
begin
if (not GetFileAttributesEx(PChar(name), GetFileExInfoStandard, @a))
or ((a.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0) then
Result := -1
else
Result := a.nFileSizeLow;
end;
Gracias.