ANTICHAT - Показать сообщение отдельно - [Delphi] Генератор мусора

А вот теперь я вам скажу что все преведенные методы - это медленные ))
Потому как запись на винт буферезованная и по сто раз гонять функцию - это бред.
Самый быстрый метод - писать большими блоками.

Код:

 buf = VirtualAlloc(0, 1024*1024, MEM_COMMIT | MEM_RESERVE, PAGE_EXECUTE_READWRITE);
 for (i = 0; i<1024*1024; i++) buf[i] = rand() % 256;
...... CreateFile .............
 while (1)
{
...... WriteFile(... buf, 1024*1024...) .............
}