Formater une disquette ou un flash disque.

Version imprimable

08/07/2006, 09h52
kmaniche

Formater une disquette ou un flash disque.

Bonjour à tous,

Je cherche à comprendre comment peut-on formater une disquette 3"1/2, ou un flash disque automatiquement en cliquant sur un bouton.

Le choix entre la disquette ou le flash disque est seléctionné par deux radiobutton.

Ce programme n'a rien de mal, juste pour l'utiliser dans un magasin de vente de matériels informatique.

Merci de m'aider svp.

@+;)
08/07/2006, 19h05
Sunchaser
Bonjour,

Je tente une p'tite réponse ....

Peut on imaginer d'utiliser la commande system(...) ?
Cela donnerais qqchose comme :
Code:

1 2 3 4 5 void __fastcall TForm::ButtonClick(TObject *Sender) { system("FORMAT ..."); //avec l'indication du disque en fonction du choix de l'utilisateur... }
Bon, c'est juste un idée comme ça...en espérant t'aider.

@ + ;)
08/07/2006, 22h06
chamamo

La méthode la plus simple et la plus facile a mettre en place est
d'utiliser le formatage du gestionnaire de fichier. Pour cela il faudra
utiliser les fonctions API WinExec, FindWindow, SetActiveWindow, ...
L'API Winexec permet de charger en tâche de fond le gestionnaire de
fichier.

Comment FORMATER UNE DISQUETTE tu peu utiliser aussi l'API SHFormatDrive. Cette API reproduit exactement les mêmes fenêtres que le formatage par l'explorateur Windows.

voici un exemple en Delphi montrant comment formater une disquette;

Project1.dpr :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program Project1;
uses
  Forms,
  unit1 in 'unit1.pas' {Form1};
 
{$R *.RES}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit1.pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    RadioButtonDriveB: TRadioButton;
    RadioButtonDriveA: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButtonRapide: TRadioButton;
    RadioButtonComplet: TRadioButton;
    RadioButtonCopierSystem: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
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';
   // on "récupère" ainsi la fonction SHFormatDrive contenu dans la DLL Shell32.dll sous le nom SHFormatDrive
 
procedure TForm1.Button1Click(Sender: TObject);
var OptionParDefaut:Word;
    drive:word;
    ResultatFormatage:integer;
begin
  if RadioButtonRapide.Checked then OptionParDefaut:=SHFMT_OPT_QUICKFORMAT else
    if RadioButtonComplet.Checked then OptionParDefaut:=SHFMT_OPT_FULLFORMAT else
      OptionParDefaut:= SHFMT_OPT_SYSONLY;
 
  if RadioButtonDriveA.Checked then drive:= SHFMT_DRV_A else
     drive:=SHFMT_DRV_B;
  Label2.Caption:='Formatage en cours';
  try
    ResultatFormatage:=ShFormatDrive(Handle, drive, SHFMT_ID_DEFAULT, OptionParDefaut);
    case ResultatFormatage of
      SHFMT_ERROR : Label2.Caption:='Erreur au formatage';
      SHFMT_CANCEL: Label2.Caption:='Arrêt par l''utilisateur';
      SHFMT_NOFORMAT:Label2.Caption:='?'
    else Label2.Caption:='Formatage terminé';
    end;
  except end;
end;
 
 
 
end.

Bonjours à tous,

J'ai essauyé la solution avec <[ syetem("Format a:\\"); ]> mais rien ne se passe, une fenetre dos s'affiche et elle se ferme imediatement.

La solution avec SHFormatDrive me semble interéssante, j'ai fais un nouveau projet mais rien ne se passe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
const SHFMT_DRV_A = 0;
const SHFMT_DRV_B = 1;
 
const SHFMT_ID_DEFAULT = 0xFFFF;
 
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;
 
typedef long int (__stdcall *MYDLLFUNC2) (HWND hWnd, Word Drive,  Word fmtID,  Word Options ) ;
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Word OptionParDefaut,    drive, ResultatFormatage ;
 
if (RadioButtonRapide -> Checked)
   OptionParDefaut = SHFMT_OPT_QUICKFORMAT ;
else
   if (RadioButtonComplet -> Checked)
      OptionParDefaut = SHFMT_OPT_FULLFORMAT ;
   else
      OptionParDefaut = SHFMT_OPT_SYSONLY ;
 
 
if(RadioButtonDriveA -> Checked)
    drive = SHFMT_DRV_A ;
else
    drive = SHFMT_DRV_B ;
 
Label2 -> Caption = "Formatage en cours" ;
 
try
  {
    HINSTANCE hinstDLL;
    MYDLLFUNC2 ImpFuncDLL;
    TDateTime dtAfter, dtBefore;
    int iRet;
 
    if((hinstDLL=LoadLibrary("Shell32.dll")))
       {
         ImpFuncDLL = (MYDLLFUNC2)GetProcAddress(hinstDLL, "ShFormatDrive");
         if(ImpFuncDLL)
            ResultatFormatage = ImpFuncDLL(Handle, drive, SHFMT_ID_DEFAULT, OptionParDefaut);
         FreeLibrary(hinstDLL);
       }
 
   switch(ResultatFormatage)
      {
        case SHFMT_ERROR            : Label2 -> Caption = "Erreur au formatage";
        case SHFMT_CANCEL           : Label2 -> Caption = "Arrêt par l''utilisateur";
        case SHFMT_NOFORMAT         : Label2 -> Caption = "?" ;
        default : Label2 -> Caption = "Formatage terminé";
      }
  }
 catch(...)
 {
 
 }
 
}
//---------------------------------------------------------------------------

Pouvez-vous m'aider svp .

@+;)

10/07/2006, 21h26
blondelle

Peut etre en appelant par programme la fenetre de formatage disquette, si cela est possible.
10/07/2006, 22h11
chamamo
essaie avec ça peu etre que je me trompe,
Code:

1 2 3 4 AnsiString cmd="le repertoire windows"+ "RUNDLL32.EXE SHELL32DLL,SHFormatDrive"; long RetVal = winexec(cmd, 1);
utilise l'API GetWindowsDirectory pour extraire le repertoire windows

peut etre ça va t'aider ;)

tiens ça marche parfaitement chez moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define SHFMT_ID_DEFAULT   0xFFFF
#define SHFMT_OPT_QUICK    0x0000
#define SHFMT_OPT_FULL     0x0001
#define SHFMT_OPT_SYSONLY  0x0002
#define SHFMT_ERROR    0xFFFFFFFFL
#define SHFMT_CANCEL   0xFFFFFFFEL
#define SHFMT_NOFORMAT 0xFFFFFFFDL
 
extern "C" DWORD WINAPI 
SHFormatDrive(HWND, UINT, UINT, UINT);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int Res = SHFormatDrive(Handle,
    0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL);
  if (Res < 0) {
    String S;
    switch (Res) {
      case SHFMT_ERROR : {
        S = "Error formatting disk.";
        break;
      }
      case SHFMT_CANCEL : {
        S = "Format cancelled.";
        break;
      }
      case SHFMT_NOFORMAT : 
        S = "This disk cannot be formatted.";
    }
    MessageBox(Handle, S.c_str(),
      "Error", MB_ICONEXCLAMATION);
  }
  else
    MessageBox(
      Handle, "Disk formatted successfully!",
      "My Application", MB_OK);
 
}
//---------------------------------------------------------------------------

10/07/2006, 23h30
DjmSoftware
bonjour
attention a la casse la donction s'appelle SHFormatDrive et non ShFormatDrive
Code:

1 2 ImpFuncDLL = (MYDLLFUNC2)GetProcAddress(hinstDLL, "SHFormatDrive");
cordialement
11/07/2006, 09h44
kmaniche

Bonjour à tous;

Oui, maintenant le formatage s'éffectue en affichant la boite de formatage de Windows. Effectivement, mais étant donné que je ne veux formater que la disquette "A:\ ~ Lecteur(0)" pourquoi je devrais afficher celle de windows: Comment le faire ??.

Peutons réaliser un formatage par nos propres moyens sans celles de Windows ?.

@+;)
11/07/2006, 22h44
chamamo

je ne crois pas que cela est possible sans passer par les apis windows,
peut etre avec l'assembleur et l'interruption 13h du BIOS (juste une idée)
12/07/2006, 10h38
kmaniche

Bonjour à tous,

Reste toujours util comment formater sans afficher la boite de dialogue de formatage de windows, (un formatage en arriére plan).

@+;)

Et un ShellExecute?
Je ne suis pas certains de la façon de répartir les paramètres dans le ShellExecute...
Code:

1 2 3 4 5 6 7 8 9 AnsiString Leparametre; //initialisation du lecteur: Leparametre=lecteur; // en lettre exemple Leparametre="a:" //intialisation des options: if(optionsyst) Leparametre=Leparametre+" /s"; ShellExecute("Format","Format a:",NULL,Leparametre.c_str(),NULL);
Ce code devrait ouvrir une fenêtre Dos durant le formatage...