Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c