MP3音乐播放器

zpmc123

楼主强！WIN10正常使用！


这个工具也很强，能不能放出来用用

chzj589

zpmc123 发表于 2021-8-16 12:21
楼主强！WIN10正常使用！

这个代码是以前做UDEFI安装工具，单要抽出来还得有点时间。

chzj589

zpmc123 发表于 2021-8-16 12:21
楼主强！WIN10正常使用！

刚学AU3不久时写的，写得很乱。现打开代码都看不懂了。抽出来不能运行了，关联太多。
给个磁盘信息主代码：

#include <Array.au3>
Local $ii = 0, $x1, $x2
$Disk = DriveGetDrive("ALL");返回一个含有指定驱动器盘符的数组
If DriveGetDrive("Removable") = 0 Then
        ;MsgBox(0, "本地磁盘", "没有发现可移动磁盘 ", 1)
        $x2 = 0
Else
        Global $Disk2 = DriveGetDrive("Removable")
        $x2 = $Disk2[0]
EndIf
If DriveGetDrive("FIXED") = 0 Then
        MsgBox(0, "本地磁盘", "没有发现磁盘 ")
Else
        Global $Disk1 = DriveGetDrive("FIXED")
        $x1 = $Disk1[0]
EndIf
Local $x = $x1 + $x2
Local $Edit1X11[$x]
If Not @error Then
        For $i = 1 To $Disk[0]
                Dim $Disks[$Disk[0] + 1]
                $Disks[$i] = StringUpper($Disk[$i]);转换字符串为大写字母
                $DriveType = DriveGetType($Disk[$i]);驱动器的类型
                $DriveFile = DriveGetFileSystem($Disk[$i]);格式
                $DriveFree = DriveSpaceFree($Disk[$i]);可用空间
                $DriveFreeGB = ByteConversion($DriveFree);单位转换
                $DriveTotal = DriveSpaceTotal($Disk[$i]);总大小
                $DriveTotalGB = ByteConversion($DriveTotal);单位转换
                If $DriveType = "Unknown" Then;判断驱动器是否 Unknown 类型
                ElseIf $DriveType = "Removable" Then;判断驱动器是否 Removable 类型
                        $DriveTypeS = "可移动驱动器"
                        $Edit1X11[$ii] = $DriveTypeS & " | " & $DriveFile & " | " & $DriveFreeGB & " | " & $DriveTotalGB
                        $ii += 1
                ElseIf $DriveType = "Fixed" Then;判断驱动器是否 Fixed 类型
                        ;-----------------------------------------------------------------------------------------------
                        $DriveTypeS = "本地磁盘"
                        $Edit1X11[$ii] = $DriveTypeS & " | " & $DriveFile & " | " & $DriveFreeGB & " | " & $DriveTotalGB
                        ;MsgBox(0, $DriveTypeS & $i, $DriveTypeS & "|" & $DriveFile & "|" & $DriveFreeGB & "|" & $DriveTotalGB)
                        $ii += 1
                EndIf
        Next
        _ArrayDisplay($Edit1X11, "磁盘信息")
EndIf
Func ByteConversion($lBytes)
        If $lBytes < 1024 Then
                Return Round($lBytes, 2) & "MB"
        ElseIf $lBytes < 1048576 Then
                Return Round($lBytes / 1024, 2) & "GB"
        EndIf
EndFunc   ;==>ByteConversion