如何使用delphi以编程方式删除USB闪存盘？

uses
  Windows;

function DeleteUSBFlashDrive(const DriveLetter: Char): Boolean;
var
  DrivePath: string;
begin
  Result := False;
  DrivePath := DriveLetter + ':\';
  if not IsPathOnUSBFlashDrive(DrivePath) then
    Exit;

  if not DeleteFile(PChar(DrivePath + '*.*')) then
    Exit;

  if not RemoveDirectory(PChar(DrivePath)) then
    Exit;

  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DeleteUSBFlashDrive('D') then
    ShowMessage('USB闪存盘已删除')
  else
    ShowMessage('无法删除USB闪存盘');
end;