이문환 wrote:

> 델파이로 하드 포맷하는 방법이 있을까요?

> 하드를 포맷하는 방법을 알고 싶습니다.

> 참고로 아시는 분은 주석을 달아주세요..

> 괜히 그거 짜다가 제 하드 날라가면 큰일 납니다.

> 부탁......



//하드디스크포멧?

//원하시는 답변인지는 모르겠지만 윈도우의 포멧창을 뛰우는 방법입니다

//참고하시면 도움이 될것 같군요



implementation

{$R *.DFM}

const

SHFMT_ID_DEFAULT = $FFFF;

// Formating options

SHFMT_OPT_QUICKFORMAT = $0000;

SHFMT_OPT_FULL = $0001;

SHFMT_OPT_SYSONLY = $0002;

// Error codes

SHFMT_ERROR = $FFFFFFFF;

SHFMT_CANCEL = $FFFFFFFE;

SHFMT_NOFORMAT = $FFFFFFFD;



function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word): LongInt;

stdcall; external 'shell32.dll' name 'SHFormatDrive';



procedure TForm1.Button1Click(Sender: TObject);

var

retCode: LongInt;

begin

// 두번째 파라미터 Drive = 0 (A 드라이브)

// 두번째 파라미터 Drive = 1 (C 드라이브)

retCode:= SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT);

if retCode < 0 then ShowMessage('Can''t Formatting');

end;