如果你嫌看代码麻烦,可以直接下载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 :