Форматирование диска в Win32

Delphi , Файловая система , Диски

const SHFMT_DRV_A = 0;
const SHFMT_DRV_B = 1;
const SHFMT_ID_DEFAULT = $FFFF;
const SHFMT_OPT_QUICKFORMAT = 0;
const SHFMT_OPT_FULLFORMAT = 1;
const SHFMT_OPT_SYSONLY = 2;
const SHFMT_ERROR = -1;
const SHFMT_CANCEL = -2;
const SHFMT_NOFORMAT = -3;
function SHFormatDrive(hWnd : HWND;
  Drive : Word;
  fmtID : Word;
  Options : Word) : Longint
  stdcall; external 'Shell32.dll' name 'SHFormatDrive';

...
implementation
...

procedure TForm1.Button1Click(Sender: TObject);
var
  FmtRes: longint;
begin
  try
    FmtRes:= ShFormatDrive(Handle,
      SHFMT_DRV_A,
      SHFMT_ID_DEFAULT,
      SHFMT_OPT_QUICKFORMAT);
    case FmtRes of
      SHFMT_ERROR :
        ShowMessage('Error formatting the drive');
      SHFMT_CANCEL :
        ShowMessage('User canceled formatting the drive');
      SHFMT_NOFORMAT :
        ShowMessage('No Format')
    else
      ShowMessage('Disk has been formatted');
    end;
  except
  end;
end;

Программный код на Delphi, демонстрирующий форматирование диска с помощью функции SHFormatDrive из Shell32.dll в Win32.

Вот разбивка кода:

1. В первой секции определены константы для различных кодов ошибок, идентификаторов дисков и параметров форматирования.
2. Функция SHFormatDrive объявлена как внешний процедура из Shell32.dll. Эта функция форматирует диск на behalf пользователя.
3. В секции реализации определена процедура TForm1.Button1Click, которая обрабатывает событие клика кнопки на форме (TForm1). Когда эта кнопка нажата:
4. Переменная FmtRes объявлена и инициализирована результатом вызова функции SHFormatDrive с параметрами:
   • hWnd: Обратный handle основного окна
   • Drive: SHFMT_DRV_A, представляющий диск A (A:)
   • fmtID: SHFMT_ID_DEFAULT, являющаяся дефолтным идентификатором форматирования
   • Options: SHFMT_OPT_QUICKFORMAT, указывающим быстрое форматирование
5. Результат вызова SHFormatDrive проверяется с помощью оператора case. В зависимости от возвращаемого значения:
   • Если код ошибки SHFMT_ERROR, отображается сообщение об ошибке
   • Если код ошибки SHFMT_CANCEL, отображается сообщение о отмене
   • Если код ошибки SHFMT_NOFORMAT, отображается сообщение "No Format"
   • Иначе (успех), отображается сообщение о успешном форматировании

Код можно улучшить в следующих способах:

1. Обработка ошибок: блок except не обрабатывает никакие конкретные ошибки. Лучше использовать блока try-except с конкретными типами ошибок или сообщениями.
2. Читаемость кода: комментарии могли бы быть добавлены в код, чтобы объяснить, что каждый раздел делает, особенно для разработчиков, не знакомых с Delphi.
3. Валидация ввода пользователя: перед вызовом SHFormatDrive может потребоваться валидация ввода пользователя (например, выбор диска) для обеспечения правильного форматирования диска.
4. Проверка свободного пространства на диске: необходимо проверить, есть ли достаточно свободного пространства на диске перед попыткой его форматирования.

Вот пример улучшенной обработки ошибок:

try
  FmtRes:= ShFormatDrive(Handle, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT);
except
  E: Exception do
    ShowMessage('Произошла ошибка: ' + E.Message)
end;

Помните, что этот код использует внешнюю библиотеку (Shell32.dll) и может не работать на всех системах или версиях. Важно тщательно тестировать код перед его развертыванием в производственной среде.

Описание процесса форматирования диска в Windows 32-разрядной системе с использованием функции SHFormatDrive и пример реализации на языке Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диски ::