jugedred.net::Blog

Delphi で任意のファイルのファイルサイズを取得します。FindFirst 関数を使って実現します。

var
  FRec: TSearchRec;
  FileName: string;
begin
  FileName := 'ここにファイルのパス';
  if FindFirst(FileName, faAnyFile, FRec) = 0 then
    // 戻り値が0なら成功
    result := FRec.Size;
  // 表示を3桁区切りにする。
  result := FormatFloat('0,', result); // 戻り値は String 型
end;

FRec.Size がファイルサイズになります。単位はバイト数単位です。最後に FormatFloat 関数を利用して表示を3桁区切りにしてみました。

ずっと ExtractFilePath 関数を使って実行ファイルのIniファイルを↓の様に取得していたのですが、

IniFileName := ExtractFilePath(Application.ExeName) + 'hogehoge.ini';

これだといちいち「実行ファイルパス + 実行ファイル.ini」をコード中に書かなくてはならなくて結構不便でした。
で、いろいろ調べてみると、ChangeFileExt関数というものを発見。
これはファイル名の拡張子を変更する関数のようです。これを使うと↑のコードは

IniFileName := ChangeFileExt(Application.ExeName,'.ini');

こんな風にスマートになります。いまごろ知りました。