InstantForum.NET v4.1.4Релибhttp://relib.com/forums/robot@relib.comFri, 21 Nov 2008 19:22:35 GMT20http://relib.com/forums/Topic906540-8-1.aspxМожно узнать многими способами. Проще всего так:</P><P>[code]{$APPTYPE CONSOLE}<BR>uses SysUtils;<BR>var<BR> f: File;<BR> l: Integer;<BR>begin<BR> AssignFile(f, 'TestLib.exe');<BR> FileMode := 0;<BR> Reset(f, 1);<BR> l := FileSize(f);<BR> WriteLn(l);<BR>end.[/code]</P><P>или так:</P><P>[code]{$APPTYPE CONSOLE}<BR>uses SysUtils;<BR>var<BR> sr: TSearchRec;<BR> l: Integer;<BR>begin<BR>if FindFirst('TestLib.exe', faAnyFile, sr) = 0 then<BR> l := sr.Size;<BR> WriteLn(l);<BR>end.[/code]</P><P>Только в современных операционных системах возможны файлы размером больше чем $FFFFFFFF. Для того чтобы извлечь такой размер потребуется переменная типа Int64 и вызов функций API CreateFile, GetFileSize CloseHandle.Fri, 27 Oct 2006 10:50:17 GMTpalvahttp://relib.com/forums/Topic906540-8-1.aspxПодскажите, пожалуйста, как узнать размер файла (независимо - Win98 или WinXP, Fat32 или NTFS)?Fri, 27 Oct 2006 09:31:59 GMTarafikov