Odczyt rozmiaru pliku z atrybutem 'Tylko do odczytu'

0

chcialbym sie dowiedziec w jaki sposób napisac funkcje ktora podawala by rozmiar pliku z atrybutem Read Only (nagranego na plyte CD). Polecenie FileSize(f) nie radzi sobie z plikami tylko do odczytu. Za sugestie z góry dziki..

0
var F : File of Byte;
    FSize : integer;
begin
  AssignFile(F,'e:\cos.txt');
  FileMode := 0;
  Reset(F);
  FSize := FileSize(F);
  CloseFile(F);
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1