Know the size of any file  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 03/01/03

Tip accessed 473 times

 



 procedure TForm1.Button1Click(Sender: TObject);
   function cuantosbytes(archivo: string): string;
   var
     FHandle: integer;
   begin
     FHandle := FileOpen(archivo, 0);
     try
       Result := floattostr(getfilesize(FHandle,nil));
     finally
       FileClose(FHandle);
     end;
   end;
 begin
   Caption:=cuantosbytes('c:\windows\notepad.exe');
 end;