XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datenträger formatieren !!!-> Vorsicht!!! <-!!!
SHFormatDrive zeigt eine Formatierungsdialog an und formatiert das angegebene Laufwerk.
Deklaration:
Def @FormatDrive(4) !SHELL32,SHFormatDrive
Parameter:
L1(Param.1 Longint ) Handle des Fensters, auf dem der Dialog erscheinen soll.
I2(Param.2 Integer ) Nummer des Laufwerks => 0=A:; 1=B; 2=C;...
I3(Param.3 Integer ) Erweiterter Flag für die Formatierung; zur Zeit nur $FFFF.
I4(Param.4 Integer ) Einer von folgenden Flags für die Formatierungsart =>
 $0 = normal
 $1 = Quickformat
 $2 = Systemdateien kopieren
Rückgabewert:
Bei Erfolg die ID des letzten erfolgreichen Formatierungsvorgangs,
-3 wenn das Laufwerk (wegen defektes) nicht formatierbar ist.
-2 wenn die Formatierung abgebrochen wurde.
-1 wenn ein sonstiger Fehler aufgetreten ist.
Def @Formatdrive(4) !SHELL32,SHFormatDrive
Declare Formatergebnis&
Windowtitle Diskette formatieren
Windowstyle 31
Window 0,0-640,440
Let Formatergebnis&=@Formatdrive(%Hwnd,2,$Ffff,1)