|
回复 #3606 fsWolfer 的帖子
//移动硬盘列表(排除A: B: X: Y:盘)
_SUB LISTRD
FORM DriveType=%AllDrive%
LSTR aStr=%AllDrive%,2 改成 2,%AllDrive%
FIND $%aStr%=A:,!FIND $%aStr%=B:,!FIND $%aStr%=X:,!FIND $%aStr%=Y:,!FIND $%DriveType%=FUNCTION_ERROR,!FIND $%DriveType%=DRIVE_CDROM,!FIND $%DriveType%=DRIVE_FIXED,!ENVI RDrive=%RDrive%|%aStr%
MSTR AllDrive=%AllDrive%,4,0 改成 4,0,%AllDrive%
STRL iLen=%AllDrive%
IFEX $%iLen%>0,CALL LISTRD!MSTR RDrive=%RDrive%,2,0 改成 2,0,%RDrive%
_END
_SUB RunLoad
FIND $%HDBox.Check%=1,SHOW F:-1
FIND $%USBBox.Check%=1,SHOW U:-1
_END
_SUB LoadDrive,W130H108,选择窗口,,Shell32.DLL#47,-28,
FIND $%RDrive%=,ENVI UD=-3!FORM DriveType=%RDrive%
FIND $%DriveType%=,!FIND $%DriveType%=DRIVE_REMOVABLE,ENVI UD=0!FIND $%DriveType%=DRIVE_USBDISK,ENVI UD=0!FIND $%DriveType%=DRIVE_USBFLASH,ENVI UD=0
GROU Group1,L8T8W100H68,硬盘类型选择
CHEK HDBox,L10T28W80H20,固定硬盘,CALL,0
CHEK USBBox,L10T48W80H20,移动硬盘,CALL,%UD%
ITEM Button1,L8T80W30H20,确定,TEAM call RunLoad|ENVI DriveType=|ENVI UD=|ENVI RDrive=|KILL \选择窗口
ITEM Button2,L68T80W30H20,取消,TEAM ENVI DriveType=|ENVI UD=|ENVI RDrive=|KILL \选择窗口
_END
//主程序
ENVI RDrive=
FDRV AllDrive=
CALL LISTRD
TEAM ENVI AllDrive=|ENVI DriveType=|ENVI aStr=|ENVI iLen=
MESS 此操作会造成硬盘隐藏分区全部显示! \n您确认要显示隐藏分区吗?@显示隐藏分区#YN
FIND $%YESNO%=YES,CALL @LoadDrive
EXIT
[ 本帖最后由 bahmo 于 2011-4-7 14:27 编辑 ] |
|