<火山程序 类型 = "通常" 版本 = 1 />

方法 置文件大小_ <公开 静态 类型 = 逻辑型 注释 = "预创建指定大小的文件" @禁止流程检查 = 真>
参数 文件名称 <类型 = 文本型>
参数 文件大小 <类型 = 长整数>
{
    变量 句柄 <类型 = 变整数>
    句柄 = 打开文件_ (文件名称, 打开方式.新建或覆盖, 共享方式.共享读写, 访问方式.读写)
    移动读写位置_ (句柄, 文件大小, 文件常量.文件尾)  // SetFilePointer GetLastError
    移动位置 (句柄)  // SetEndOfFile
    如果 (取文件尺寸_ (句柄) == 文件大小)
    {
        关闭文件_ (句柄)
        返回 (真)
    }
    关闭文件_ (句柄)
    返回 (假)
}

<火山程序 类型 = "通常" 版本 = 1 />

方法 移动读写位置_ <公开 静态 类型 = 长整数 注释 = "移动该文件的读写位置" 返回值注释 = "成功返回移动距离" @禁止流程检查 = 真>
参数 文件句柄 <类型 = 变整数>
参数 移动距离 <类型 = 长整数>
参数 移动方式 <类型 = 文件常量 注释 = "默认是当前位置" @默认值 = 文件常量.当前位置>
{
    @    LARGE_INTEGER li;
    @    li.QuadPart = @<移动距离>;
    @    li.LowPart = ::SetFilePointer ((HANDLE)@<文件句柄>, li.LowPart, &li.HighPart, (DWORD)@<移动方式>);
    @    if (li.LowPart == INVALID_SET_FILE_POINTER && GetLastError() != NO_ERROR)
    @    {
    @       li.QuadPart = -1;
    @    }
    @    return li.QuadPart;
}