jianganew 发表于 2015-8-28 19:45:09

[已解决]请教如何弹出U盘？

本帖最后由 jianganew 于 2015-9-10 13:07 编辑

论坛中弹出U盘的方法不多，P版的那个我也用不了，请教还有什么快速的方法，粗暴点的也可以。

jianganew 发表于 2015-8-28 21:20:12

哪位能写个DriveClose的函数？

jianganew 发表于 2015-8-29 16:55:27

还是去看看P版的UDF行不行。

ddrs 发表于 2015-8-29 21:09:13

P版的那个可以的嘛

zxhou1 发表于 2015-8-31 15:54:55

{:face (131):}

jianganew 发表于 2015-9-2 16:02:50

Dim $Var
        $Drive = DriveGetDrive("removable")
        If $Drive = 0 Then
                MsgBox(262208, "目前没有插入USB", "没有插入…… 哪来拔出……", 3)
                Return
        Else
                For $i = 1 To $Drive
                        $Var = StringUpper($Drive[$i])
                        $s = StringUpper($Drive)
                Next
                ;_QueryDrive($s, True)；第一种
                ；_CM_Safely_Eject_Device($s) ；第二种
        EndIf

两种方法都没成功，郁闷中。

flyself 发表于 2015-9-3 16:29:08

学习一下。。

jianganew 发表于 2015-9-10 11:58:29

EjectVolume($s)；第3种

最后用了第3种。
页: [1]
查看完整版本: [已解决]请教如何弹出U盘？