Ouvrir la boite de dialogue formater

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;