پیدا کردن اندازه فایل ( داخل cd )

[as13851365]

برای پیدا کردن اندزه فایل از کد زیر استفاده می کنم اما این کد در مواقعی که فایل محافظت شده باشه و یا فایل روی cd باشد پیغام خطا می ده :عصبانی++:


procedure TForm1.Button1Click(Sender: TObject);

var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
end;

در کد بالا وقتی که فایل روی حافظه فقط خواندنی باشه ( CD - DVD ) پیغام خطای I/O می ده :متفکر:

برای پیدا کردن اندازه فایل شما چه راهی رو پیشنهاد می کنید؟ :خجالت:

اگر یک مثال کوچک هم داشته باشید خیلی ممنون می شم :چشمک:

> اگر هم پیشنهاد جستجو دادید خواهشا قید کنید که چه چیزی رو باید چستجو کنم <

[Hsimple11]

این جا (http://www.swissdelphicenter.ch/en/showcode.php?id=172) چند مثال دیگر وجود دارد.