取磁盘空间的API+例子郑码

阿杰

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
5. .局部变量 总空间, 字节集
   
6. .局部变量 剩余空间1, 字节集
   
7. .局部变量 剩余空间2, 字节集
   
8. 总空间 ＝ 取空白字节集 (255)
   
9. 剩余空间1 ＝ 取空白字节集 (255)
   
10. 剩余空间2 ＝ 取空白字节集 (255)
    
11. SHGetDiskFreeSpaceA (“C:\”, 剩余空间1, 总空间, 剩余空间2)
    
12. 调试输出 (“总空间大小： ” ＋ 到文本 (四舍五入 (取字节集数据 (总空间, #长整数型, ) ÷ 1024 ÷ 1024, )) ＋ “ MB”, “总剩余空间大小： ” ＋ 到文本 (四舍五入 (取字节集数据 (剩余空间1, #长整数型, ) ÷ 1024 ÷ 1024, )) ＋ “ MB”, “剩余空间大小： ” ＋ 到文本 (四舍五入 (取字节集数据 (剩余空间2, #长整数型, ) ÷ 1024 ÷ 1024, )) ＋ “ MB”)
    
13. 返回 (0)
    
14. 
    

复制代码