捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
创建 Sparse File
关键字:CreateSparseFile DeviceIOControl
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:初级 完成时间:2006/5/2
发布者:xyedyguoguo 发布时间:2006/8/8
编辑器:DELPHI7 语  种:简体中文
分 类:系统 下载浏览:0/7379
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
无图片
//**********
//   Function:  Create Sparse Files
//   Input value: FileName: Sparse File Name
//   FileSize: Sparse File Size
//   Result value: True: True or False
//   Author: 果子
//   Create Date: 2006.05.02
//**********

function CreateSparseFile(const FileName: String; const FileSize: Int64): Boolean;
var
  hF: THandle;
  dirStr: String;
  Temp: DWORD;
begin
  dirStr := ExtractFileDir(FileName) ;
  if not DirectoryExists(dirStr) then
    ForceDirectories(dirStr);          //创建目录
  hF := CreateFile(Pchar(FileName), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0);
  result := (hf <> INVALID_HANDLE_VALUE);
  DeviceIOControl(hF, 590020, nil, 0, nil, 0, Temp, nil);
  SetFilePointer(hF, Int64Rec(FileSize).Lo, @Int64Rec(FileSize).Hi, FILE_BEGIN);
  SetEndOfFile(hF);
  CloseHandle(hF);
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论0条
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表