阿杰 发表于 2009-8-28 12:15:37

【开源】取硬盘逻辑分区序号

<font face="Verdana">
<p><font face="Verdana">.版本 2</font></p>
<p><font face="Verdana">.DLL命令 GetVolumeInformation, 整数型, "kernel32", "GetVolumeInformationA"<br/>&nbsp;&nbsp;&nbsp; .参数 lpRootPathName, 文本型<br/>&nbsp;&nbsp;&nbsp; .参数 lpVolumeNameBuffer, 文本型<br/>&nbsp;&nbsp;&nbsp; .参数 nVolumeNameSize, 整数型<br/>&nbsp;&nbsp;&nbsp; .参数 lpVolumeSerialNumber, 整数型, 传址<br/>&nbsp;&nbsp;&nbsp; .参数 lpMaximumComponentLength, 整数型, 传址<br/>&nbsp;&nbsp;&nbsp; .参数 lpFileSystemFlags, 整数型, 传址<br/>&nbsp;&nbsp;&nbsp; .参数 lpFileSystemNameBuffer, 文本型, , 分区格式:也可设为空<br/>&nbsp;&nbsp;&nbsp; .参数 nFileSystemNameSize, 整数型<br/></font></p></font>
<p><font face="Verdana">.版本 2<br/>.支持库 spec</font></p>
<p><font face="Verdana">.子程序 取逻辑分区序号, 文本型<br/>.参数 盘符, 文本型<br/>.局部变量 文件系统, 文本型<br/>.局部变量 卷标, 文本型<br/>.局部变量 序列号, 长整数型</font></p>
<p><font face="Verdana">文件系统 ＝ 取空白文本 (255)<br/>卷标 ＝ 取空白文本 (255)<br/>取序列号 (盘符, 卷标, 255, 序列号, 0, 0, 文件系统, 255)<br/>返回 (到文本 (序列号))</font></p>
<p><font face="Verdana">.子程序 __启动窗口_创建完毕<br/>.局部变量 i, 整数型<br/>.局部变量 sTmp, 文本型</font></p>
<p><font face="Verdana">.计次循环首 (26, i)</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; sTmp ＝ 取逻辑分区序号 (字符 (i ＋ 64) ＋ “:\”)<br/>&nbsp;&nbsp;&nbsp; .如果真 (sTmp ≠ “0”)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 调试输出 (字符 (i ＋ 64) ＋ “===&gt;” ＋ sTmp)<br/>&nbsp;&nbsp;&nbsp; .如果真结束</font></p>
<p><font face="Verdana">.计次循环尾 ()<br/></font></p>
[此贴子已经被作者于2009-8-29 11:42:56编辑过]

马大哈 发表于 2009-8-28 20:19:42

现在怎么感觉挺别扭,哈哈

阿杰 发表于 2009-8-28 20:36:01

<p>我还是比较喜欢易语言的IDE编程环境的</p>
页: [1]
查看完整版本: 【开源】取硬盘逻辑分区序号