格式化-初级程序-极语言教程

//窗体代码:

整数 窗体,hCmb,dx2,dx3,dx4,zh5,标签6,fx7,fm8,dn9,标签10;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-417)>>1,上=(桌面.高-321)>>1;
窗体=创建窗口($100,程序.名称,"格式化分区",$10C80000,左,上,417,321,0,0,0,0);
hCmb=创建窗口($0,"Combobox","组合框",$50210043,20,20,53,153,窗体,1,8,0);
dx2=创建窗口($0,"Button","NTFS",$50014009,100,20,67,20,窗体,2,7,0);
dx3=创建窗口($0,"Button","FAT32",$50014009,100,67,67,20,窗体,3,7,0);
dx4=创建窗口($0,"Button","EXFAT",$50014009,100,120,67,20,窗体,4,7,0);
zh5=创建窗口($0,"Combobox","组合框",$50210043,307,20,87,120,窗体,5,8,0);
标签6=创建窗口($0,"Static","簇大小",$50000000,253,20,47,20,窗体,6,2,0);
fx7=创建窗口($0,"Button","快速格式化",$50012003,213,120,93,20,窗体,7,6,0);
fm8=创建窗口($0,"Button","格式化",$50000000,140,200,140,47,窗体,8,3,0);
dn9=创建窗口($200,"Edit","mydisk",$50010000,173,160,127,20,窗体,9,4,0);
标签10=创建窗口($0,"Static","卷标",$50000000,120,160,47,20,窗体,10,2,0);
窗体启动;读取消息
结束

 

//程序代码:

导入 格式磁盘 别名 FormatEx lib "fmifs.dll",7;
文本 区类[6]="NTFS",盘符[4]="C:\",卷标[32];整数 簇, 长度,i,盘标,对标=1;
小程序 窗体消息(句柄,消息,参数,数据);
    判断(消息)为 窗口关闭 停止
    为 绘制静态,绘制按钮 返回(0)
    为 单击左键{如果(参数 <5)取窗口字(数据,区类,6)
        如果(参数= 8)磁盘格式化}
    否则{处理窗口(句柄,消息,参数,数据)}
结束

小程序 窗体启动
    盘标= 可用磁盘;按钮单选(窗体, 2, 4, 2);
    循环于(i=65;i<80;i++){
        如果(盘标 & 对标>0){盘符(0)=i;发送消息(hCmb, 组合添加, 0, 盘符)}
    对标=对标<<1;}发送消息(hCmb, 选组合项, 0, 0);盘标=512;
    循环于(i=0;i<8;i++){发送消息(zh5, 组合添加, 0, 转文本(盘标));盘标=盘标<<1}
    发送消息(zh5, 选组合项, 3, 0)读取消息
结束

小程序 回消息(消息,模式,数值)
    如果(消息=0){
    改窗口字(fm8,转文本(数值&))}
    如果(消息=11){
    如果(数值&=0){i="格式化失败";}否则{i="格式化成功"}
    信息框(0,i,"提示",$20);}
结束

小程序 磁盘格式化;
    长度=发送消息(hCmb,取组合项,0,0);
    发送消息(hCmb,组合读取, 长度, 盘符);
    长度=发送消息(zh5,取组合项,0,0);簇=512<<长度;
    对标=发送消息(fx7,获取选择, 0, 0);
    取窗口字(dn9,卷标,32);
    i = 磁盘类型(盘符);如果(i=3){i=12;}
    否则{i=11;}
    格式磁盘(盘符, i, 区类, 卷标, 对标,@簇, @回消息);
结束

小程序 转文本(值)
    格式化(卷标,"%d",值)
    返回(卷标)
结束