主页 / 问题 / 1184542
Accepted
Gu.
Asked:2020-10-01 01:59:02 +0000 UTC2020-10-01 01:59:02 +0000 UTC

在Delphi中创建具有指定大小的文件而不写入内容

  • 772

在 Dos 时代，有这样一个程序 balon.exe，它可以创建指定大小的文件（尽管那里仍然写入随机字节）。很明显，在 Delphi 中重复这一点并不难。问题：是否可以在 D 上创建一个文件，之前为它分配了一个卷（不写入数据）？如果“是”，那么我会很高兴看到一个例子。

类型（条件）

CreateFile(f,'d:\My.txt');
SetFileSize(f,1024); // 1kb
CloseFile(f);

如果没有，这样的方法是否存在？例如 - 就像在 Hyper-V \ VMware 中创建虚拟磁盘时一样 - 选项之一是立即分配空间（文件立即创建），或者例如，对于 torrent 客户端 - 选项是在下载时分配空间对于文件（我不确定这里）。

++我们正在谈论 Win 10 Ltsc

delphi

1 个回答

  1. Best Answer

    在这里，在内置工具上，立即创建了一个 8 GB 的文件：

     with TFileStream.Create('f:\test.y', fmCreate) do try
    Size := 8000000000;
  finally
    Free;
  end;

    在引擎盖下有这样的东西：

      var h: THandle;
  var lw, hg: Integer;
    h := CreateFileA(PAnsiChar('f:\test.x'), GENERIC_READ or GENERIC_WRITE,
                     FILE_SHARE_READ or FILE_SHARE_WRITE, NIL, 
                     CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
    if h <> INVALID_HANDLE_VALUE then begin
      lw := 0;
      hg := 2;
      SetFilePointer(h, lw, @hg, FILE_BEGIN);
      SetEndOfFile(h);
      CloseHandle(h);
    end;
    • 3

相关问题