en Este artículo se muestra cómo dar formato a una unidad de una aplicación Delphi.
procedimiento FormatDriveDialog
begin
& nbsp & nbsp ShellExecute(de Aplicación.Asa,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'Abrir',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'C:/Windows/Rundll32.exe',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'Shell32.dll,SHFormatDrive',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'C:/Windows',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SW_SHOWNORMAL)
fin
función SHFormatDrive(hWnd : HWnd
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Unidad, fmtID, Opciones : LongInt):longint
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp stdcall externos 'shell32.dll'
procedimiento QuietFormatDrive
const
& nbsp & nbsp SHFMT_ID_DEFAULT = $FFFF
& nbsp & nbsp SHFMT_OPT_QUICK = $0000
& nbsp & nbsp SHFMT_OPT_FULL = $0001
& nbsp & nbsp SHFMT_OPT_SYSONLY = $0002
& nbsp & nbsp SHFMT_ERROR = $FFFFFFFF
& nbsp & nbsp SHFMT_CANCEL = $FFFFFFFE
& nbsp & nbsp SHFMT_NOFORMAT = $FFFFFFFD
begin
& nbsp & nbsp caso SHFormatDrive(Mango, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) de
& nbsp & nbsp & nbsp & nbsp SHFMT_ERROR : ShowMessage('Error en el último formato, la unidad puede ser
formatable')
& nbsp & nbsp & nbsp & nbsp SHFMT_CANCEL : ShowMessage('el Último formato fue cancelado')
& nbsp & nbsp & nbsp & nbsp SHFMT_NOFORMAT : ShowMessage('Unidad no es formatable')
& nbsp & nbsp final
fin
Formato de una unidad
Formato de una unidad : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se muestra como dar formato a una unidad de una aplicacion Delphi.
procedimiento FormatDriveDialog
begin
& nbsp & nbsp ShellExecute(de Aplicacion.Asa,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'Abrir',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'C:/Windows/Rundll32.exe',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'Shell32.dll,SHFormatDrive',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'C:/Windows',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SW_SHOWNORMAL)
fin
funcion SHFormatDrive(hWnd : HWnd
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Unidad, fmtID, Opciones : LongInt):longint
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp stdcall externos 'shell32.dll'
procedimiento QuietFormatDrive
const
& nbsp & nbsp SHFMT_ID_DEFAULT = $FFFF
& nbsp & nbsp SHFMT_OPT_QUICK = $0000
& nbsp & nbsp SHFMT_OPT_FULL = $0001
& nbsp & nbsp SHFMT_OPT_SYSONLY = $0002
& nbsp & nbsp SHFMT_ERROR = $FFFFFFFF
& nbsp & nbsp SHFMT_CANCEL = $FFFFFFFE
& nbsp & nbsp SHFMT_NOFORMAT = $FFFFFFFD
begin
& nbsp & nbsp caso SHFormatDrive(Mango, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) de
& nbsp & nbsp & nbsp & nbsp SHFMT_ERROR : ShowMessage('Error en el ultimo formato, la unidad puede ser
formatable')
& nbsp & nbsp & nbsp & nbsp SHFMT_CANCEL : ShowMessage('el Ultimo formato fue cancelado')
& nbsp & nbsp & nbsp & nbsp SHFMT_NOFORMAT : ShowMessage('Unidad no es formatable')
& nbsp & nbsp final
fin
