como saber el tamaño de un fichero

[kenychy]

tu codigo yo lo probe en delphi 2010, y me dio error. que tu cres de esto.

[Neftali [Germán.Estévez]]

Empezado por kenychy

tu codigo yo lo probe en delphi 2010, y me dio error. que tu cres de esto.

El código lo he probado con D6 y D2009 y me funciona bien en ambos.
Te subo el proyecto.

[kenychy]

gracias man

[[escafandra]]

Dos funciones en C:

__int64 GetFileSize(char *FileName)
{
   WIN32_FIND_DATA Data;
   HANDLE hFile = ::FindFirstFile(FileName, &Data);
   if(hFile==(HANDLE)-1) return 0;
   __int64 S = Data.nFileSizeHigh;
   S = (S << 32) | Data.nFileSizeLow;
   FindClose(hFile);
   return S;
}

//-----------------------------------------------------------------------
__int64 _GetFileSize(char *FileName)
{
   int hFile= _lopen(FileName, 0);
   __int64 S;
   if (!GetFileSizeEx((HANDLE)hFile, (PLARGE_INTEGER)&S)) S=0;
   _lclose(hFile);
   return S;
}

Saludos.

[kenychy]

gracias men.