如果你嫌看代码麻烦，可以直接下载Demo程序

可以下载 u盘的拔插容量卷标盘符判断检测.zip 

主要的功能函数如下：

uses uSelectDriveRemovable;
{$R *.dfm}

procedure TForm20.FormCreate(Sender: TObject);
begin
btn_toSD.Enabled := ChkDriveRemovable;
end;

//u盘的 插入和删除windows会给所有的程序发出WM_DEVICECHANGE 信息
//这句放在private里面
//procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
procedure TForm20.WMDeviceChange (var Msg: TMessage);
begin
Case Msg.WParam of
32768: btn_toSD.Enabled := True; //'U盘插入';
32772: btn_toSD.Enabled := ChkDriveRemovable; //'U盘拔出';
end;
end;

procedure TForm20.btn_toSDClick(Sender: TObject);
var fPath:String;
begin
Label1.Caption := '(正在选择)';
fPath := SelectDriveRemovable(self);
//
Label1.Caption := '已选择 '+fPath;

end;

调用的FORM中的核心代码：

//u盘盘符判断
function SelectDriveRemovable(AOwner: TComponent):String;
var
buf:array [0..max_path-1] of char;
m_result:integer;
i:integer;
str_temp, fdisk:string;
lst:TStringList;
begin
m_result:=getlogicaldrivestrings(max_path, buf);
lst:=TStringList.Create;
for i:=0 to (m_result div 4) do
begin
str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);
if GetDriveType(Pchar(str_temp)) = drive_removable then
begin
lst.Append(str_temp);
end;
end;
//
//  if lst.Count = 1 then //如果是唯一的，直接返回，没得选。
//     begin
//        Result := lst.Strings[0];
//        lst.Free;
//        Exit;
//     end
//  else  //开启选择窗口，用户自己选择。
begin
F_SelectDriveRemovable:= TF_SelectDriveRemovable.Create(AOwner);
with F_SelectDriveRemovable do
begin
//ComboBoxDisk.Items.Assign(lst);
//lst.Free;
for i := 0 to lst.Count -1 do
begin
fdisk := lst.Strings[i].Substring(0,2);
ComboBoxDisk.Items.Append(  fdisk + '(' + DiskVolume(fdisk) + ')' );
end;

                ComboBoxDisk.ItemIndex := 0;
ComboBoxDisk.OnChange(nil);
if ShowModal = mrOK then
begin
fdisk  := ComboBoxDisk.Text;
Result := fdisk.Substring(0,2) + '\';
Free;
Exit;
end
else
begin
Free;
Abort;//中止程序
end;
end;
end;
end;

可以下载 u盘的拔插容量卷标盘符判断检测.zip Demo 原始代码