编辑框内容=最后一个盘符怎么写

4834

有一个编辑框，我想让它的内容=最后一个盘符，如果只有C盘的，编辑框内容才=C盘盘符怎么写啊。还有一个标签，标签标题等于盘符的容量加可用容量。

斗战胜猴

取系统盘符_首 取系统盘符_尾

是永乐哟

系统有可以直接调用的api

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 获取指定盘符信息 (“D:\”)
获取最后一个盘符信息 ()

子程序名	返回值类型	公开	备 注
获取指定盘符信息
参数名	类 型	参考	可空	数组	备 注
盘符	文本型				"D:\"

变量名	类 型	静态	数组	备 注
可用字节	长整数型
总字节	长整数型
总剩余字节	长整数型
总容量GB	双精度小数型
可用容量GB	双精度小数型

如果真 (GetDiskFreeSpaceEx (盘符, 可用字节, 总字节, 总剩余字节) ＝ 0)
调试输出 (“获取失败，盘符可能不存在”)
返回 ()

总容量GB ＝ 总字节 ÷ 1073741824  ' 1024*1024*1024
可用容量GB ＝ 可用字节 ÷ 1073741824
调试输出 (“盘符：”, 盘符)
调试输出 (“总容量：”, 总容量GB, “GB”)
调试输出 (“可用容量：”, 可用容量GB, “GB”)

子程序名	返回值类型	公开	备 注
获取最后一个盘符信息

变量名	类 型	静态	数组	备 注
驱动器位掩码	整数型
盘符索引	整数型
盘符路径	文本型
可用字节	长整数型
总字节	长整数型
总剩余字节	长整数型

驱动器位掩码 ＝ GetLogicalDrives ()
变量循环首 (25, 0, -1, 盘符索引)
如果真 (位与 (驱动器位掩码, 左移 (1, 盘符索引)) ≠ 0)
盘符路径 ＝ 字符 (65 ＋ 盘符索引) ＋ “:\”
如果真 (GetDriveType (盘符路径) ＝ 3)
跳出循环 ()


变量循环尾 ()
如果真 (盘符索引 ＜ 0)
调试输出 (“未找到任何固定分区”)
返回 ()

如果真 (GetDiskFreeSpaceEx (盘符路径, 可用字节, 总字节, 总剩余字节) ＝ 0)
调试输出 (“获取容量失败”)
返回 ()

调试输出 (“最后一个分区：”, 盘符路径)
调试输出 (“总容量 (GB)：”, 总字节 ÷ 1073741824)
调试输出 (“可用容量 (GB)：”, 可用字节 ÷ 1073741824)

DLL命令名	返回值类型	公开	备 注
GetLogicalDrives	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetLogicalDrives
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
GetDriveType	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetDriveTypeA
参数名	类 型	传址	数组	备 注
lpRootPathName	文本型

DLL命令名	返回值类型	公开	备 注
GetDiskFreeSpaceEx	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetDiskFreeSpaceExA
参数名	类 型	传址	数组	备 注
lpDirectoryName	文本型
lpFreeBytesAvailableToCaller	长整数型
lpTotalNumberOfBytes	长整数型
lpTotalNumberOfFreeBytes	长整数型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 获取指定盘符信息 (“D:\”)<br /> 获取最后一个盘符信息 ()<br /> <br /> .子程序 获取指定盘符信息<br /> .参数 盘符, 文本型, , "D:\"<br /> .局部变量 可用字节, 长整数型<br /> .局部变量 总字节, 长整数型<br /> .局部变量 总剩余字节, 长整数型<br /> .局部变量 总容量GB, 双精度小数型<br /> .局部变量 可用容量GB, 双精度小数型<br /> <br /> .如果真 (GetDiskFreeSpaceEx (盘符, 可用字节, 总字节, 总剩余字节) ＝ 0)<br />     调试输出 (“获取失败，盘符可能不存在”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 总容量GB ＝ 总字节 ÷ 1073741824  ' 1024*1024*1024<br /> 可用容量GB ＝ 可用字节 ÷ 1073741824<br /> <br /> 调试输出 (“盘符：”, 盘符)<br /> 调试输出 (“总容量：”, 总容量GB, “GB”)<br /> 调试输出 (“可用容量：”, 可用容量GB, “GB”)<br /> <br /> .子程序 获取最后一个盘符信息<br /> .局部变量 驱动器位掩码, 整数型<br /> .局部变量 盘符索引, 整数型<br /> .局部变量 盘符路径, 文本型<br /> .局部变量 可用字节, 长整数型<br /> .局部变量 总字节, 长整数型<br /> .局部变量 总剩余字节, 长整数型<br /> <br /> 驱动器位掩码 ＝ GetLogicalDrives ()<br /> <br /> .变量循环首 (25, 0, -1, 盘符索引)<br />     .如果真 (位与 (驱动器位掩码, 左移 (1, 盘符索引)) ≠ 0)<br />         盘符路径 ＝ 字符 (65 ＋ 盘符索引) ＋ “:\”<br />         .如果真 (GetDriveType (盘符路径) ＝ 3)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> .如果真 (盘符索引 ＜ 0)<br />     调试输出 (“未找到任何固定分区”)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (GetDiskFreeSpaceEx (盘符路径, 可用字节, 总字节, 总剩余字节) ＝ 0)<br />     调试输出 (“获取容量失败”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 调试输出 (“最后一个分区：”, 盘符路径)<br /> 调试输出 (“总容量 (GB)：”, 总字节 ÷ 1073741824)<br /> 调试输出 (“可用容量 (GB)：”, 可用字节 ÷ 1073741824)<br /> <br /> .版本 2<br /> <br /> .DLL命令 GetLogicalDrives, 整数型, "kernel32.dll", "GetLogicalDrives"<br /> <br /> .DLL命令 GetDriveType, 整数型, "kernel32.dll", "GetDriveTypeA"<br />     .参数 lpRootPathName, 文本型<br /> <br /> .DLL命令 GetDiskFreeSpaceEx, 整数型, "kernel32.dll", "GetDiskFreeSpaceExA"<br />     .参数 lpDirectoryName, 文本型<br />     .参数 lpFreeBytesAvailableToCaller, 长整数型, 传址<br />     .参数 lpTotalNumberOfBytes, 长整数型, 传址<br />     .参数 lpTotalNumberOfFreeBytes, 长整数型, 传址

BruceJoysky1987

  

子程序名	返回值类型	公开	备 注
子程序1	文本型

变量名	类 型	静态	数组	备 注
局_列表	文本型		0

局_列表 ＝ 取驱动器列表 (0)
返回 (局_列表 [取数组成员数 (局_列表)])

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 子程序1, 文本型<br /> .局部变量 局_列表, 文本型, , "0"<br /> <br /> 局_列表 ＝ 取驱动器列表 (0)<br /> 返回 (局_列表 [取数组成员数 (局_列表)])

cxl

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
驱动器数组	文本型		0
计数	整数型
最后盘符	文本型
总容量MB	长整数型
可用容量MB	长整数型
总容量GB	双精度小数型
可用容量GB	双精度小数型

驱动器数组 ＝ 取驱动器列表 ()
计数 ＝ 取数组成员数 (驱动器数组)
最后盘符 ＝ 驱动器数组 [计数]
编辑框1.内容 ＝ 取文本左边 (最后盘符, 1)
总容量MB ＝ 取磁盘总空间 (最后盘符) ÷ 1024
可用容量MB ＝ 取磁盘剩余空间 (最后盘符) ÷ 1024
总容量GB ＝ 四舍五入 (总容量MB ÷ 1024 ÷ 1024, 2)
可用容量GB ＝ 四舍五入 (可用容量MB ÷ 1024 ÷ 1024, 2)
标签1.标题 ＝ “总容量:” ＋ 到文本 (总容量MB) ＋ “ MB” ＋ #换行符 ＋ “可用容量:” ＋ 到文本 (可用容量MB) ＋ “ MB”
' '标签1.标题 ＝ “总容量:” ＋ 到文本 (总容量GB) ＋ “GB” ＋ #换行符 ＋ “可用容量:” ＋ 到文本 (可用容量GB) ＋ “GB”

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 驱动器数组, 文本型, , "0"<br /> .局部变量 计数, 整数型<br /> .局部变量 最后盘符, 文本型<br /> .局部变量 总容量MB, 长整数型<br /> .局部变量 可用容量MB, 长整数型<br /> .局部变量 总容量GB, 双精度小数型<br /> .局部变量 可用容量GB, 双精度小数型<br /> <br /> 驱动器数组 ＝ 取驱动器列表 ()<br /> 计数 ＝ 取数组成员数 (驱动器数组)<br /> 最后盘符 ＝ 驱动器数组 [计数]<br /> 编辑框1.内容 ＝ 取文本左边 (最后盘符, 1)<br /> 总容量MB ＝ 取磁盘总空间 (最后盘符) ÷ 1024<br /> 可用容量MB ＝ 取磁盘剩余空间 (最后盘符) ÷ 1024<br /> 总容量GB ＝ 四舍五入 (总容量MB ÷ 1024 ÷ 1024, 2)<br /> 可用容量GB ＝ 四舍五入 (可用容量MB ÷ 1024 ÷ 1024, 2)<br /> 标签1.标题 ＝ “总容量:” ＋ 到文本 (总容量MB) ＋ “ MB” ＋ #换行符 ＋ “可用容量:” ＋ 到文本 (可用容量MB) ＋ “ MB”<br /> ' '标签1.标题 ＝ “总容量:” ＋ 到文本 (总容量GB) ＋ “GB” ＋ #换行符 ＋ “可用容量:” ＋ 到文本 (可用容量GB) ＋ “GB”