Текущий архив: 2002.06.27;
Скачать: CL | DM;
Вниз
Создатьь файл Найти похожие ветки
← →
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, зато весело :-)
← →
cyborg © (2002-06-14 14:59) [8]Slava © спасибо, то что нужно.
← →
mcs © (2002-06-16 21:38) [9]Игорь Шевченко : Можно подробнее?
← →
Игорь Шевченко © (2002-06-17 11:15) [10]Можно подробнее:
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;
Создает файл мгновенно, любого размера.
Страницы: 1 вся ветка
Текущий архив: 2002.06.27;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
