Форматирование диска в 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'; 
  
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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий