Buscar por:

Como formatar diskette usando o delphi e arquivo externo .bat

Código

{Esta dica ensina como formatar diskettes pelo delphi.

1º Você deve criar um arquivo externo .BAT com os comandos para formatação.

OBS: Crie o texto no bloco de notas e salve com extensão .BAT com o nome de formatar.bat (salvem em c:)

Seguem os códigos do arquivo .BAT}

cls                                  

cd

format a: /q/y

break(10)

exit   

{Agora no Delphi, criem uma tela chamada: Formatar Diskette. Nela coloquem um botão com o caption : Iniciar.

No evento on click do botão, coloque as seguintes linhas de comando:  }

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  try

    if messagedlg('Insira um diskette para iniciar formatação!', MTINFORMATION, [MBOK, MBCANCEL] , 0) =    MROK then begin

    winexec('C:formatar.bat', SW_HIDE);

    end;

  finally

    messagedlg('Formatação Concluída!', MTINFORMATION , [MBOK] , 0);

  end;  

end;

{Pronto! }

{Dica: Marcio Antônio - Uberaba -MG}