« 結婚10年&わんこ | メイン | わんこ健康診断 »

2005年05月14日

2GB以上のファイルサイズを取得する

function GetFileSize2(const fname: string): Int64;
var
  aHwnd: THandle;
  fd: TWin32FindData;
begin
  Result := -1;
  aHwnd := FindFirstFile(PChar(FileName), FindData);
  if aHwnd <> INVALID_HANDLE_VALUE then 
  begin
    Windows.FindClose(aHwnd);
    if (fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      Int64Rec(Result).Lo := fd.nFileSizeLow;
      Int64Rec(Result).Hi := fd.nFileSizeHigh;
    end;
  end;
end;

投稿者 woodybells : 2005年05月14日 23:47

トラックバック

このエントリーのトラックバックURL:
http://sv59.xserver.jp/~woodybells/woodybells.com/mt/mt-tb.cgi/10

コメント

コメントしてください




保存しますか?