请选择 进入手机版 | 继续访问电脑版

玩酷之家

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 658|回复: 0

调用系统格式化磁盘窗口

[复制链接]

95

主题

100

帖子

401

积分

中级会员

Rank: 3Rank: 3

积分
401
发表于 2018-10-2 12:53:29 | 显示全部楼层 |阅读模式
  1. '模块代码
  2. Private Declare Function SHFormatDrive Lib "shell32" _
  3.     (ByVal hWnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
  4.     ByVal options As Long) As Long

  5. Private Declare Function GetDriveType Lib "kernel32" Alias _
  6.     "GetDriveTypeA" (ByVal nDrive As String) As Long

  7. Public Sub FormatHDD(Drv As String)
  8.     DriveNumber = (Asc(Drv) - 65)
  9.     RetVal = SHFormatDrive(Form1.hWnd, DriveNumber, 0&, 0&)
  10. End Sub
复制代码

调用方法:FormatHDD(“C:”)

最多选择要压缩的20张 PNG图像
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2019-4-24 20:36 , Processed in 0.170745 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表