請問各位! 我使用 F: File; AssignFile(F,myfile) Reset(F); filesize(F,myfile)取的的檔案大小與我在檔案總管中所看到的檔案大小 實際差很多, 請問這當中有何差異? 是不是有更精準的function 實際:480032 抓出來:328500 謝謝!

Hi P.D. 大大: 您要不要試試Windows API 的函數.. 看起來差不多ㄋㄟ

procedure TForm1.Button1Click(Sender: TObject);
var
  HFileRes: HFILE;
  HighSize,LowSize: Integer;
begin
HFileRes := CreateFile(PChar('D:\dog7.jpg'),
  GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);     HighSize:=GetFileSize(HFileRes,nil);
 LowSize:= GetCompressedFileSize(PChar('D:\dog7.jpg'),nil);     showmessage(IntToStr(HighSize));
 showmessage(IntToStr( LowSize));
Closehandle(HFileRes);    end;    

~悠遊法國號~

引言: Hi P.D. 大大: 您要不要試試Windows API 的函數.. 看起來差不多ㄋㄟ

procedure TForm1.Button1Click(Sender: TObject);
var
  HFileRes: HFILE;
  HighSize,LowSize: Integer;
begin
HFileRes := CreateFile(PChar('D:\dog7.jpg'),
  GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);     HighSize:=GetFileSize(HFileRes,nil);
 LowSize:= GetCompressedFileSize(PChar('D:\dog7.jpg'),nil);     showmessage(IntToStr(HighSize));
 showmessage(IntToStr( LowSize));
Closehandle(HFileRes);    end;    

~悠遊法國號~

謝謝! GetCompressedFileSize函式果然抓出來相差不遠了!

用filestream來讀會不會比較準確一點啊    

var temp:tfilestream ;
    filesize: int64;
begin
   temp:=tfilestream.create('C:\windows\windows.exe',fmOpenRead or fmShareExclusive);
   filesize:=temp.size;
   temp.free;
end;

藏私の禁止

豬寶寶的寫法^^ 應該比較簡單一點^^" procedure TForm1.Button1Click(Sender: TObject); VAR FileRec:TSearchrec; begin FindFirst('C:\blowfish11.rar',faAnyfile,FileRec); SHOWMESSAGE(INTTOSTR(FILEREC.Size)); end;

我是用豬寶寶大大的方法，抓出來的值一模一樣喔! 感謝分享!