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

玩酷之家

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

调用系统格式化磁盘窗口

[复制链接]

92

主题

97

帖子

361

积分

中级会员

Rank: 3Rank: 3

积分
361
发表于 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:”)

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-12-12 16:14 , Processed in 0.161279 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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