فرمت کردن درایو ها با delphi

[koorosh-kabir-2564]

چگونه میشود در دلفی درایو ها را فرمت کرد ؟

[hossein taghi zadeh]

با سلام
سورس رو تست کن احتمالا جواب می ده


const SHFMT_DRV_A = 0;
const SHFMT_ERROR = -1;
const SHFMT_NOFORMAT = -3;
const SHFMT_DRV_B = 1;
const SHFMT_CANCEL = -2;
const SHFMT_ID_DEFAULT = $FFFF;
const SHFMT_OPT_QUICKFORMAT = 0;
const SHFMT_OPT_FULLFORMAT = 1;
const SHFMT_OPT_SYSONLY = 2;

function SHFormatDrive(hWnd:HWND;Drive:Word;fmtID:Word;Opti ons:Word):Longint stdcall; external 'Shell32.dll' name 'SHFormatDrive';

procedure TForm1.Button1Click(Sender: TObject);
var FmtRes : longint;
begin
try
FmtRes:= ShFormatDrive(Handle, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT);
case FmtRes of
SHFMT_ERROR : ShowMessage('Error formatting the drive');
SHFMT_CANCEL :ShowMessage('User canceled formatting the drive');
SHFMT_NOFORMAT : ShowMessage('No Format')
else
ShowMessage('Disk has been formatted');
end;
except
end;

-----------------------------
کدها را در تگ کد قرار دهید
________________________________________________
با اهل دل شرح غم خود نمی کنم تقدیر غصه دل من ناشنیدن است

[dkhatibi]

البته با shellexecute و دستور فرمت(format) هم می شه.

[dkhatibi]

اگر میشه کمی در مورد SHELLEXECUT و FORMAT کردن پارتیشن ها بیشتر توضیح بدید؟
" "