Размер файлов

[Михаил Юрьевич]

Подскажите как получить размер загруженных в ListView файлов, тех которые отмечены чикетом.
Через функцию GetFileSize узнаю размер одного файла, а как всех загруженных?

with sListView2 do begin
 for i:=0 to Items.Count-1 do
  if Items[i].Checked then
   sz:=IntToStr(GetFileSize(sListView2.Items[i].Caption))
   end;

[Stilet]

А тот код, который у тебя разве этого не делает?
Разве что написать sz:=sz+...

Покажи код выяснения размера одного файла.

[Михаил Юрьевич]

Спасибо большое, просто не сплюсовал

 function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin
try
FS := TFilestream.Create(Filename, fmShareDenyRead);
except
Result := -1;
end;
if Result <> -1 then
Result := FS.Size;
FS.Free;
end;

[Stilet]

Ну бывает )
Кстати, ты бы свою функцию назвал бы по другому. Такое имя кажись в Win API уже есть.

[ResourceSpace]

Size это Int64. Функция должна возвращать Int64. Ну и sz тоже Int64.

[3D Hunter]

Размер файла правильнее будет брать так:

function GetFileSizeEx(AhFile:THandle;
                       ApFileSize:PLargeInteger):BOOL;
         stdcall;
         external kernel32 name 'GetFileSizeEx';

//возвращает размер файла AFileName в байтах
//(в случае ошибки вернет -1 и запишет описание ошибки в AErrorDesc)
function GetFS(const AFileName:string;
               out AErrorDesc:string):Int64;
var
  LhFile:THandle;
begin
  //начальный результат
  Result:=-1;

  //открываем файл
  LhFile:=CreateFile(PChar(AFileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,0,0);

  //если ошибка при открытии
  if (LhFile=INVALID_HANDLE_VALUE) then
    begin
      //формируем описание ошибки
      AErrorDesc:=SysErrorMessage(GetLastError);

      //выходим
      Exit;
    end;

  try
    //если не удалось взять размер файла
    if (not GetFileSizeEx(LhFile,@Result)) then
      begin
        //формируем описание ошибки
        AErrorDesc:=SysErrorMessage(GetLastError);

        //выходим
        Exit;
      end;
  finally
    //закрываем файл
    CloseHandle(LhFile);
  end;
end;


//пример использования
procedure TForm2.FormCreate(Sender: TObject);
var
  LSize:Int64;
  LErrorDesc:string;
begin
  LSize:=GetFS('<ПОЛНОЕ ИМЯ ФАЙЛА>',
               LErrorDesc);
  if (LSize=-1) then
    Caption:=LErrorDesc
  else
    Caption:=IntToStr(LSize);
end;

[eoln]

Ещё как вариант

var
    ff: _WIN32_FIND_DATA;//_WIN32_FIND_DATAA
    hFind: hwnd;
...
hFind := FindFirstfile('путь_имя', ff);
showmessage(inttostr(ff.nFileSizeHigh shl 32 + ff.nFileSizeLow));
FindClose(hFind)

Можно подстраховаться и явно указать тип int64. Раньше с этим проблемы были, сейчас - наверное, тоже

var  
  c:int64;
...
  hFind := FindFirstFile('путь_имя',ff);
  c := int64(ff.nFileSizeLow) or (int64(ff.nFileSizeHigh) shl 32);

  FindClose(hFind)

Ну и плюс проверки на ошибки