祝贺终于买到了DELPHI6（当然是D版），送分。

Question

program IE5Pass;
uses windows,registry;
var reg:tregistry;
begin
    reg:=tregistry.create;
    reg.rootkey:=HKEY_LOCAL_MACHINE;
    reg.openkey("SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ratings",false);
    reg.deletevalue("key");
    reg.closekey;
    reg.free;
    MessageBox(0,"      --恭喜恭喜--"#13#13"IE 5.0 分级审查口令已清除!","http://njhhack.at.china.com",0);
end.

Answer 1

to coldarcher(冷箭手现在改拍板砖了)　：
  程序很好，但是要求是  最短的程序  ！
（没让您干任何事：））

Answer 2

to yangrenzhi(我愛大海)　：
  该程序能够执行吗？：）

Answer 3

怎么，这么简单的问题没有人会吗？我可能应转到DELPHI版去……：）

Answer 4

同喜，同喜，我刚从黑白软件上下载了最新的DELPHI6,不过我还没安装上。

Answer 5

program mypro;
uses windows;
begin
    MessageBox(0,"Hello,Word! I'm Happyledian.","Hello",0);
end. 

Answer 6

请各位热衷于D6的朋友解答我刚提的问题！
http://www.csdn.net/expert/topic/169/169559.shtm

Answer 7

program test;
begin
end. 
够短吧！绝对能执行！

Answer 8

program hello
begin
end.
抄袭之作。呵呵……

Answer 9

在这里送分，你不怕被删？？？？
不过我要分！procedure form1.button1click(sender:tobject);
begin
  showmessage('给我100分！！！')；
  showmessage('谢谢！！！')；
end;

Answer 10

procedure form1.button1click(sender:tobject);
begin
  showmessage('我也要分！')；
end; 

Answer 11

showMwssage('同喜同喜，找到Bug一定先通知你');

Answer 12

唉……我想我没有说清楚。我希望的是可以执行的最短的程序。
xclxd(小虾)　的离标准答案最近。
标准答案是：begin
end.:)
给分了！

Answer 13

那段程序不是我写的，是COPY的
不过谢谢你的分