Windows - formatar disquete

Top  Previous  Next

Maneira 1

procedure TForm1.Button2Click(Sender: TObject);

var

  SR: TSearchRec;

  I: integer;

begin

  I := FindFirst('a:\*.*', faAnyFile, SR);

  while I = 0 do begin

  if (SR.Attr and faDirectory) <> faDirectory then

  if not DeleteFile('a:\' + SR.Namethen

  ShowMessage('Não consegui excluir a:\' + SR.Name);

  I := FindNext(SR);

  end;

end

Maneira 2

function Tdlgbackup.formatar: boolean;

const

   SHFMT_ID_DEFAULT = $FFFF;

   SHFMT_OPT_QUICKFORMAT = $0000;

   SHFMT_OPT_FULL = $0001;

   SHFMT_OPT_SYSONLY = $0002;

   SHFMT_ERROR = $FFFFFFFF;

   SHFMT_CANCEL = $FFFFFFFE;

   SHFMT_NOFORMAT = $FFFFFFFD;

var

   Disquete: DWord;

   X_DESTINO:ShortString;

begin

   grpdestino.Visible:=False;

   Label6.Visible:=False;

   Label10.Visible:=False;

   lbdestino.Visible:=False;

   LBBYTES.Visible:=False;

   X_DESTINO:='c:';

   DriveDestino.Drive:=X_DESTINO[1];

 

   Result:=True;

   Disquete := SHFormatDrive(Handle, 0

SHFMT_ID_DEFAULT,SHFMT_OPT_QUICKFORMAT);

   case Disquete of

      SHFMT_ERROR: Result:=False;

      SHFMT_CANCEL: Result:=False;

      SHFMT_NOFORMAT: Result:=False;

   end;

   GroupBox1.visible:=True;

   X_DESTINO:='A:';

   DriveDestino.Drive:=X_DESTINO[1];

   grpdestino.Visible:=True;

   Label6.Visible:=True;

   Label10.Visible:=True;

   lbdestino.Visible:=True;

   LBBYTES.Visible:=True;

end;

 

 

.