uses
Windows;
function GetFileSize(const Filename: String; var FileSize: Int64): Boolean;
var
Handle: THandle;
FindData: TWin32FindData;
begin
FileSize := 0;
Handle := Windows.FindFirstFile(PChar(Filename),FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
FileSize := FindData.nFileSizeLow or Int64(FindData.nFileSizeHigh) shl 32;
Result := True;
Exit;
end;
Result := False;
end;
戻値がTrueならばFileSizeに取得したファイルサイズが格納されています。2008/12/16追記: KB961110の問題を回避するためにWin32APIのGetFileSizeExを使用する方法をファイルサイズを取得する(2)に示しました。
0 件のコメント:
コメントを投稿