Formatieren eines Laufwerks

Formatieren eines Laufwerks

Formatieren eines Laufwerks : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel beschreibt, wie mit dem Auto von einer Delphi-Anwendung formatiert.
Prozedur FormatDriveDialog;
beginnen
ShellExecute (Application.Handle,
'Öffnen',
'C:\Windows\Rundll32.exe',
'Shell32.dll,SHFormatDrive',
'C:\Windows',
SW_SHOWNORMAL);
Ende;
Funktion SHFormatDrive (hWnd: HWnd;
Antrieb, FmtID, Optionen: LongInt): Longint;
Stdcall; externe 'shell32.dll';
Prozedur QuietFormatDrive;
const
SHFMT_ID_DEFAULT = $FFFF;
SHFMT_OPT_QUICK = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
beginnen
SHFormatDrive (Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) der Fall
SHFMT_ERROR: ShowMessage (' Fehler auf letzte Format, mit dem möglicherweise
formatierbar ');
SHFMT_CANCEL: ShowMessage ('letzte Format wurde abgebrochen');
SHFMT_NOFORMAT: ShowMessage ('Laufwerk ist nicht formatierbar');
Ende;
Ende;