From: "Ryu, Jong-Taek." <ryujt@shinhae.com>
Subject: Re: Formatting a Floppy Disk
Date: 23 Mar 1999 00:00:00 GMT
Message-ID: <7d7aat$ka910@forums.borland.com>
References: <7d77dl$js017@forums.borland.com>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
Organization: Another Netscape Collabra Server User
X-MSMail-Priority: Normal
Newsgroups: borland.public.delphi.winapi

Function  SHFormatDrive(hWnd:HWND; Drive:Word; fmtID:Word;
Options:Word):Longint
          StdCall; External 'Shell32.dll' Name 'SHFormatDrive';

Function  FormatDrive(Drive:Char; Option:TFormatOption):Longint;
Begin
  Try
    Result:= SHFormatDrive(0, Word(Byte(UpCase(Drive))-65), $FFFF,
Word(Option));
  Except
    Result:= SHFMT_ERROR;
  End;
End;

Good luck.
Ryu.