ファイルのサイズを取得する

■ファイルのサイズを取得する処理

procedure TForm1.Button1Click(Sender: TObject);

      Var

      　SearchRec :TSearchRec;

      Const

      　FileName ='C:\Windows\Calc.exe'

      begin

      　//ファイルの存在を確認

      　FindFirst(FileName, faAnyFile,SearchRec);

      

      　//バイト単位をKB単位に変換して表示

      　ShowMessage((SearchRec.Size
Div 1024) + 'KB') ;

      

      　//ファイルのハンドルを閉じる

      　FindClose(SearchRec);

      

      end;

Delphi　Tipsのページへ