Создатьь файл

← →
cyborg © (2002-06-14 12:58) [0]

Как можно быстро создать пустой файл заданного размера 100 кб., 5 мб.?

← →
Виктор Щербаков © (2002-06-14 13:01) [1]

Пустой файл размером 5Мб. Оригинально!!!

← →
Yuri Btr © (2002-06-14 13:03) [2]

CreateFile
и заполни его какими нибудь символами

← →
Игорь Шевченко © (2002-06-14 13:04) [3]

CreateFile
и
SetFilePointer

← →
cyborg © (2002-06-14 13:29) [4]

Я не так выразился :-), пустотй файл в смысле не пустой,а обнулённый например, как создать файл-то я знаю, а вот как быстро его сделать с каким-то определённым размером?

← →
Slava © (2002-06-14 13:45) [5]

procedure CreateBigFile;
var
F: TFileStream;
begin
F := TFileStream.Create("c:\1.1", fmCreate);
F.Size := 5000000;
F.Free;
end;

← →
Song © (2002-06-14 13:57) [6]

Не ребят... :)) Так нельзя, ему же надо пустой!

← →
cyborg © (2002-06-14 14:36) [7]

Song, зато весело :-)

Игорь Шевченко : Можно подробнее?

Можно подробнее:
procedure TForm1.Button4Click(Sender: TObject); var F : THANDLE; begin F := CreateFile("Test.dat", GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if F = INVALID_HANDLE_VALUE then RaiseLastWin32Error(); SetFilePointer(F, 5000000, nil, 0); SetEndOfFile(F); CloseHandle(F); end;

Создает файл мгновенно, любого размера.

Создатьь файл Найти похожие ветки