Formatar Disquete (2ª Tentativa)

[quote:fc0d0a127e=´Poeta Noturno´]Olá pessoal da clubedelpi

Como faço para formatar um disquete sem usar a tela de formatação padrão do Windows?

Um abraço

Poeta Noturno[/quote:fc0d0a127e]

{implementation section}
....

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´

no onclick do botao bote:

var
retCode: LongInt;
begin
retCode:= SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT);
if retCode < 0 then ShowMessage(´Não existe disquete no drive´);
end;