mostrar tamaño

[[Lepe]]

No recuerdo exactamente, creo que FileSize te devuelve dos Cardinal o LongInt, y debe pasarse a un Int64 usando Low() y High()

// Int64              9.223.372.036.854.775.808
// Cardinal                       4.294.967.295
// Longint                        2.147.483.647

Con un LongInt, solo puede llegar a 2.1 GB más o menos.

saludos

[[Lepe]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
function  GetFileSize(FileName: string): int64;
  var
  Srec: TSearchRec;
  begin
  if FindFirst(FileName, $01+$04+$20, Srec) <>0 then
    Result := Srec.FindData.nFileSizeHigh *MAXDWORD + 
Srec.FindData.nFileSizeLow
  else
     result := 0;
  findclose(Srec);

  end;
begin
  Canvas.TextOut(10,10,IntToStr(GetFileSize('c:\pagefile.sys')));
end;

No tengo a mano un archivo de muchos gigas, probadlo, pero debe funcionar.

El tamaño que muestra, es el mismo que en propiedades de ese archivo, pero en bytes, el que pone el explorador, ya sabemos que es un valor aproximado.

saludos

[[Gunman]]

Lepe, he usado tu función (un poco modificada) y en todos los items me devuelve 0 como valor. Aquí pongo la función:

Código Delphi [-]
 function GetFileSize(FileName: String): Int64;
   function IsFolder(Folder: String): Boolean;
   var
     Attributes:Word;
   begin
     Attributes:=FileGetAttr(Folder);
     Result:=(Attributes and faDirectory)=faDirectory;
   end;
 
   function AbsoluteValue(Value: Real): Real;
   begin
     if Value < 0 then
     Result := -(Value)
     else
     Result := Value;
   end;
 var
   Srec: TSearchRec;
   Size: Real;
 begin
   if FindFirst(FileName,faAnyFile and not faSysFile or faHidden, Srec) <> 0 then
     Result := Srec.FindData.nFileSizeHigh *MAXDWORD +
   Srec.FindData.nFileSizeLow
   else
      Result := 0;
   FindClose(Srec);
 end;

Bueno, por si te sirve de algo también te pongo el código de llamada a la función:

Código Delphi [-]
 procedure TMainFrm.LcListData(Sender: TObject; Item: TListItem);
 var
   FInfo: TSHFileInfo;
 begin
   Item.Caption := FileList[Item.Index];
 
   Item.SubItems.Add(IntToStr(GetFileSize(IncludeTrailingPathDelimiter(CDirLCCB.Text)+
                 Item.Caption)));
 
   SHGetFileInfo(PAnsiChar(IncludeTrailingPathDelimiter(CDirLCCB.Text)+
                 Item.Caption),0,FInfo,SizeOf(FInfo),SHGFI_TYPENAME);
 
   Item.SubItems.Add(FInfo.szTypeName);
 end;

[[Lepe]]

Código Delphi [-]
   if FindFirst(FileName,faAnyFile and not faSysFile or faHidden, Srec) <> 0 then

Perdona Gunman, fue un fallo técnico, en realidad la comparación es

Código Delphi [-]
  if FindFirst(...)  = 0 then // si se ha encontrado

saludos