안녕하세요..

SHFormatDrive API 는 시스템의 포맷 다이얼로그를 띄워 주는 것입니다..

그러므로, 플로피만 포맷 되는것이 아니지요..

아래 예제를 참고하셔서 즐거운 프로그래밍 하세요..


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;

그리고, 아래 사이트를 참고해 보세요..


http://www.efg2.com/Lab/Library/Delphi/IO/DisksDrives.htm

감사합니다.
유용하게 사용하겠습니다.