动态调用API取磁盘分区

jy5

动态调用API取磁盘分区

点击附件文件名添加到帖子内容中

文件尺寸: 小于 2MB , 可用扩展名: zip,rar,jpg,gif,png,bmp,torrent,txt,doc  
今日您已无法上传更多的附件
.版本 2
.支持库 JY
.子程序 取磁盘分区, 文本型, 公开, 取磁盘分区如：c:d:e:
.局部变量 p, 整数型
.局部变量 当前, 整数型
.局部变量 str, 文本型, , "26"
.局部变量 rewwe
.局部变量 idx, 整数型
.局部变量 lPstr, 整数型
.局部变量 ret, 文本型
.局部变量 lPRET, 整数型
.局部变量 j, 整数型
p ＝ winapi (, “GetLogicalDrives”, 1, 0)
str ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
idx ＝ 1
.判断循环首 (p ＞ 0)
    当前 ＝ 位与 (p, 1)
    .如果真 (当前 ＝ 1)
        ret ＝ ret ＋ str [idx]
    .如果真结束
    p ＝ 右移 (p, 1)
    idx ＝ idx ＋ 1
.判断循环尾 ()
返回 (ret)

lgpingcy

学飞一下，学习一下。学飞一下，学习一下。

InstallTest

这个需要，谢谢分享。

ctry78985

支持开源~！感谢分享

qq2971358790

O(∩_∩)O谢谢

jy5

  

子程序名	返回值类型	公开	备 注
取磁盘分区	文本型		取磁盘分区如：c:d:e:

变量名	类 型	静态	数组	备 注
p	整数型
当前	整数型
str	文本型		26
rewwe
idx	整数型
lPstr	整数型
ret	文本型
lPRET	整数型
j	整数型

p ＝ winapi (, “GetLogicalDrives”, 1, 0)
str ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
idx ＝ 1
判断循环首 (p ＞ 0)
当前 ＝ 位与 (p, 1)
如果真 (当前 ＝ 1)
ret ＝ ret ＋ str [idx]
p ＝ 右移 (p, 1)
idx ＝ idx ＋ 1
判断循环尾 ()
返回 (ret)

i支持库列表	支持库注释
JY	(未知支持库)

.版本 2<br /> .支持库 JY<br /> <br /> .子程序 取磁盘分区, 文本型, 公开, 取磁盘分区如：c:d:e:<br /> .局部变量 p, 整数型<br /> .局部变量 当前, 整数型<br /> .局部变量 str, 文本型, , "26"<br /> .局部变量 rewwe<br /> .局部变量 idx, 整数型<br /> .局部变量 lPstr, 整数型<br /> .局部变量 ret, 文本型<br /> .局部变量 lPRET, 整数型<br /> .局部变量 j, 整数型<br /> <br /> p ＝ winapi (, “GetLogicalDrives”, 1, 0)<br /> str ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }<br /> idx ＝ 1<br /> .判断循环首 (p ＞ 0)<br /> 当前 ＝ 位与 (p, 1)<br /> .如果真 (当前 ＝ 1)<br /> ret ＝ ret ＋ str [idx]<br /> .如果真结束<br /> p ＝ 右移 (p, 1)<br /> idx ＝ idx ＋ 1<br /> .判断循环尾 ()<br /> 返回 (ret)