怎么写格式化程序

Question

怎么写格式化程序

Answer 1

const
        SHFMT_ID_DEFAULT        = $FFFF;
        // Formating options
        SHFMT_OPT_QUICKFORMAT   = $0000;
        SHFMT_OPT_FULL          = $0001;
        SHFMT_OPT_SYSONLY       = $0002;
        // Error codes
        SHFMT_ERROR             = $FFFFFFFF; 
        SHFMT_CANCEL            = $FFFFFFFE; 
        SHFMT_NOFORMAT          = $FFFFFFFD; function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word): LongInt;
        stdcall; external 'shell32.dll' name 'SHFormatDrive'procedure TForm1.btnFormatDiskClick(Sender: TObject);
var
        retCode: LongInt;
begin
        retCode:=SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT,SHFMT_OPT_QUICKFORMAT);
        if retCode < 0 then
                ShowMessage('Could not format drive');
end;end.