Buscar por:

Como chamar a janela de formatar disquetes pelo delphi

Código

{Como Chamar a janela de formatar disquetes do Windows. Eu a utilizo para não ter que implementar em meus aplicativos uma rotina de formatação de disquetes e também para que fazer se já tenho pronto :-) 

Como Abrir a Janela de Formatar Disquetes do Windows®}

procedure TForm1.Button1Click(Sender: TObject); 

begin 

ShellExecute(Application.Handle,Pchar('Open'),Pchar('C:WindowsRundll32.exe'),Pchar('Shell32.dll,SHFormatDrive'),Pchar('C:Windows'),SW_SHOWNORMAL); 

end; 

{Ps.Declare na uses a unit ShellApi para poder compilar essa procedure. }