LongInt ist 32 Bit mit Vorzeichen also 2 GB
Wenn größer sein muß
Code:
procedure DoCreateFile2(Filename: string; Size: Int64);
var
FS: TFileStream;
begin
FS := TFileStream.Create(Filename, fmCreate);
try
FileSeek(FS.Handle, Size, 0);
Win32Check(SetEndOfFile(FS.Handle));
finally
FS.Free;
end;
end;
So ist THandleStream.setSize auch implementiert
Aufruf (10 GB )
Code:
DoCreateFile2(Application.ExeName+'.test', Int64(1024*1024*1024)*10);
KASI