Заполнить диск случайными данными

[VikaR]

Необходимо записать напрямую на физический диск случайные данные. Диск может не иметь файловой системы.
Пробую таким образом:

    hDevice := CreateFile(PAnsiChar(device), GENERIC_READ or GENERIC_WRITE, // device = '\\.\PHYSICALDRIVEn'
      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
    if (hDevice = 0) or (GetLastError() <> 0) then
    begin
      ShowMessage(SysErrorMessage(GetLastError()));
      Exit;
    end;
    successfullWrite := True;
    while successfullWrite do
    begin
      Application.ProcessMessages;
      SetLength(byteArray, BUF_SIZE);
      i := 0;
      while i < BUF_SIZE do
      begin
        Randomize;
        byteArray[i] := Random(255);
        Inc(i);
      end;
      successfullWrite := WriteFile(hDevice, byteArray[0], BUF_SIZE, writtenBytes, nil);
    
      end;
    end;
    CloseHandle(hDevice);

Но скорость записи, как бы я не менял размер буфера, не поднимается выше 1Мбайт/сек.
Как можно повысить эту скорость? Или же подскажите, как иначе можно программно затереть данные с диска без ФС

[s-andriano]

Во-первых, Ваша программа НЕ делает требуемого, а именно записи случайных данных.
И мешает ей в этом процедура Randomize, которая переинициализирует ДПСЧ числом, которое отнюдь не является (псевдо)случайным.
Randomize нужно вызывать не более одного раза за все время работы программы.
Да и Random нужно делать не от 255, а от 256.

Но это - не единственный пример того, что внутри цикла Вы делаете работу, которую нужно выносить за пределы цикла.
Например, BUF_SIZE внутри цикла не изменяется, так зачем каждый раз переустанавливать длину byteArray?

И еще: коль скоро Ваш вопрос не о том, работает программа или нет, а о производительности, то замечу, что для этого в Вашем сообщении недостает много существенно информации.
- что собой представляет тот физический диск, на который Вы пытаетесь писать? Каковы его характеристики?
- какова величина BUF_SIZE?


На второй вопрос: достаточно писать просто нули либо какое угодно другое число. В частности, один раз подготовить буфер с псевдослучайными числами и использовать его без пересчета на каждом шаге.

[VikaR]

Замечания справделивые, но на производительность лишние действия в цикле оказывают незначительное влияние в данном случае. В отладчике видно, что практически все время уходит именно на запись.

Размер буфера 65536. При уменьшении буфера скорость падает, при увеличении, как и говорил, скорость не меняется.

Пробовал на HDD Seagate 120GB, подключение через адаптер SATA-USB.

Ан нет, признаю - был не прав. Вынес определение буфера из цикла, и скорость выросла. При буфере 1Мбайт запись на уровне 20Мбайт/сек