当前位置: 开源爱好者 » Delphi源码 » Windows相关 » 详情页

Delphi 磁盘格式化示例 源代码

Delphi 磁盘格式化示例 源代码,请小心测试哦,只是给大家分享代码的。
   if RadioButton3.Checked=true then
   FormatType := 2;
   if MessageBox(0,'是否要进行格式化,一但格式化,'+#13+'数据将全部丢失。','提示',MB_YesNo+MB_ICONQUESTION)=IDYes then
   begin
   FormatDrive(DiskNo,FormatType);
   showmessage('格式化成功。');
   end
   else
   showmessage('格式化失败。');
   except
   showmessage('格式化失败。');
   end;

Delphi 磁盘格式化示例 源代码测试效果图
源码包大小:7.99K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图