在硬盘上面快速创建指定大小的文件
2009-06-20 11:38
274 查看
function CreateFileOnDisk(FileName: string; Size: Int64): Boolean;
{
在硬盘上面快速创建指定大小的文件
}
var
F: HFILE;
begin
Result:= not FileExists(FileName);
if Result then
begin
F:= FileCreate(FileName, 0);
SetFilePointer(F, Int64Rec(Size).Lo, @Int64Rec(Size).Hi, FILE_BEGIN);
SetEndOfFile(F);
Result:= GetLastError = 0;
FileClose(F);
end;
end;
{
在硬盘上面快速创建指定大小的文件
}
var
F: HFILE;
begin
Result:= not FileExists(FileName);
if Result then
begin
F:= FileCreate(FileName, 0);
SetFilePointer(F, Int64Rec(Size).Lo, @Int64Rec(Size).Hi, FILE_BEGIN);
SetEndOfFile(F);
Result:= GetLastError = 0;
FileClose(F);
end;
end;
相关文章推荐
- 批处理命令快速生成一个指定大小的文件,数据填满硬盘
- 快速创建一个的指定大小的内容全为0xFF的文件
- windows相应的API创建指定大小的空文件
- Linux 创建指定大小空文件
- 用CMD命令行快速创建一个4G大小的文件
- 如何快速在Linux系统的硬盘上创建大文件
- linux下创建一个指定文件大小,并实现从ext2到ext3的转换
- 利用fsutil命令创建指定大小的测试文件
- 创建指定大小的文件
- 用CMD创建一个指定大小的新文件
- Ubuntu创建一个指定大小的文件用全零填充这个文件
- linux 刚创建一个空文件时快速扩展文件的大小
- 使用CMD 命令创建指定大小的文件
- 创建指定大小的文件
- Shell脚本创建指定大小文件的测试数据
- C# 创建指定大小文件 C#读取大文件
- 创建指定大小的空文件
- 快速生成指定大小的文件
- 创建指定大小的文件