Как быстро отформатировать USB-накопитель в коде

Question

Я знаю, какой диск в формат, используя этот код:

function IsRemovableDrive(Drive: Char): Boolean; 
begin 
Result := (Winapi.Windows.GetDriveType(PChar(Drive + ':\')) = Winapi.Windows.Drive_Removable); 
end; 

Я попробовал этот код:

const 
SHFMT_DRV_A = 0; 
SHFMT_DRV_B = 1; 
SHFMT_ID_DEFAULT = $FFFF; 
SHFMT_OPT_QUICKFORMAT = 0; 
SHFMT_OPT_FULLFORMAT = 1; 
SHFMT_OPT_SYSONLY = 2; 
SHFMT_ERROR = -1; 
SHFMT_CANCEL = -2; 
SHFMT_NOFORMAT = -3; 

function SHFormatDrive(hWnd: HWND; Drive: Word; fmtID: Word; Options: Word): Longint stdcall; external 'Shell32.dll' Name 'SHFormatDrive'; 


procedure TForm2.btnFormatClick(Sender: TObject); 
var 
    FmtRes: Longint; 
    cCharTemp : Char; 
begin 
    try 
    cCharTemp := edtDrive.Text[1]; // edtDrive.Tex := 'E'; 
    FmtRes := ShFormatDrive(Handle, Ord(cCharTemp), 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 
    ShowMessage('Error Occured!'); 
    end; 
end; 

Когда я пытаюсь запустить код это он всегда говорит «Ошибка форматирования диска» Где я ошибся?

Answer 1

Последние три параметра: UINT, 32-разрядный тип. Объявите их так, а не 16 бит Word.

Параметр привода документируется, как это:

Привод в формат. Значение этого параметра представляет собой буквенный диск, начинающийся с 0 для диска A :. Например, значение 2 означает диск C :.

Вы передаете порядковое значение ASCII для буквы. Вам необходимо преобразовать 'E' в 4. Возможно, вот так: ord(driveChar) - ord('A').

Как я прочитал документы, перейдите $0001 как options для быстрого формата.

Как всегда при работе с Windows API, держать документацию близко: https://msdn.microsoft.com/en-us/library/windows/desktop/bb762169.aspx

Вам будет интересно в этом замечании можно найти там:

Формат управляется с помощью интерфейса диалогового окна , То есть пользователь должен нажать кнопку «ОК», чтобы фактически начать формат, - формат не может быть запущен программно.

Ваш обработчик исключений бесполезен, поскольку ни одна из функций внутри блока try/except не должна создавать исключения.

Answer 2

const 
    SHFMT_DRV_A = 0; 
    SHFMT_DRV_B = 1; 
    SHFMT_ID_DEFAULT = $FFFF; 
    SHFMT_OPT_QUICKFORMAT = 0; 
    SHFMT_OPT_FULLFORMAT = 1; 
    SHFMT_OPT_SYSONLY = 2; 
    SHFMT_ERROR = -1; 
    SHFMT_CANCEL = -2; 
    SHFMT_NOFORMAT = -3; 

function SHFormatDrive(
    hWnd: HWND; 
    Drive: UINT; 
    fmtID: UINT; 
    Options: UINT 
): DWORD; stdcall; external 'Shell32.dll'; 

procedure TForm2.btnFormatClick(Sender: TObject); 
var 
    FmtRes: Longint; 
    cCharTemp : Char; 
    nDrive : UINT; // this makes all the difference, declare its like this 
begin 
    try 
    cCharTemp := edtDrive.Text[1]; // edtDrive.Text := 'E'; 
    nDrive := Ord(cCharTEmp) - Ord('A'); 
    FmtRes := ShFormatDrive(Handle, nDrive, 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 
    ShowMessage('Error Occured!'); 
    end; 
end; 

Благодаря Дэвиду Хеффернану.