چطورمیشه یه درایو رو فرمت کرد؟

[xigmacorporation]

باسلام.
لطفا اگر کسی درباره فرمت کردن درایو اطلاعاتی داره بمن بگه.
متشکرم.

[nasr]

سلام
این کد فلاپی را فرمت می کنه



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';

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;

end;

موفق باشی

[xigmacorporation]

باعرض سلام خدمت دوست عزیز.
از شما بسیار متشکرم، ولی این کد رو من هم قبلاْ امتحان کردم. یک فرم آماده نشان میده. نمی خوام فرم رو نشون بده. من می خوام خودم فرم رو طراحی کنم و بعد یک درایو رو فرمت کنم. اگر بازم اطلاعاتی داشتید خوشحال می شوم آن را در اختیار من قرار دهید.
باتشکر. :wink: :)

[xigmacorporation]

با عرض سلام مجدد.
کسی نمی تونه به من در این مورد کمک کنه. :roll:
بابا برای یه برنامه شل نیاز دارم. فکر بدم توی ذهنم نیست.
بابا خودمون کشیدیم اینارو.
اگر کسی می تونه لطفا کمکم کنه. :wink:

[nasr]

بابا برای یه برنامه شل نیاز دارم.

پس فکر نکنم کدهای بالایی بد باشه :wink:

[xigmacorporation]

از پاسخ شما بسیار متشکرم.
آره کدهای بالا رو خودم امتحان کردم. خیلیخوبه ولی برنامه من فارسیه.
می خواستم فرمش هم برای فرمت کردن فارسی باشه.
خلاصه دست شما درد نکنه. 8)

[دنی کوئیل]

دوست دارم بدونم با چه کدی میشه یه درایو را فرمت کرد

[MiRHaDi]

سلام
کافیه format رو با winexec صدا کنی !
بای

[دنی کوئیل]

میرهادی جان شما یه مقاله راجب همین صدا کردن و Handel نداری

تا ما بخونیم و بفهمیم شما چی می گوئید

[MiRHaDi]

سلام
متاسفانه بنده خیر !
ولی Delphi 7 / Help /Windows SDK داره :)
ارادت مندیم
بای