« 結婚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