Länge neuer Datei nach CreateFile setzen

[turboPASCAL]

zB. so:

Delphi-Quellcode:

const
  FileSize = 1024 * 1024 * 10;  //  1024x1024x10 = 10MB 

var
  hFile: THandle;

begin
  hFile := CreateFile('C:\Users\< User >\Desktop\dummy.dat',
    GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  try
    SetFilePointer(hFile, FileSize, nil, FILE_BEGIN);
    SetEndOfFile(hFile);
  finally
    CloseHandle(hFile);
  end;
end