function lwf(h: hwnd; lw, df, op: word): 
  longint stdcall; external 'Shell32.dll' name 'SHFormatDrive'; 
 
function formatiere(laufwerk: char): longint; 
begin 
  result := lwf(0, ord(upcase(laufwerk)) - 65, $FFFF, 0); 
end; 
 
// Aufruf 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if formatiere('A') < 0 then 
// z.B.: 
    showmessage('Formatieren wurde nicht ordnungsgemäß durchgeführt') 
end;