newplayer.~dpr

来自「一个delphi制作的mp3播放器！」· ~DPR 代码 · 共 29 行

program NewPlayer;  //表示该项目的标识符，保留字 NewPlayer 指出该项目是一个
  //应用程序(而不是动态链接库)

{%File '总结.doc'}

uses
  Forms,
  Main in 'Main.pas' {Form1},
  scren in 'scren.pas' {Form2},
  Playlist in 'Playlist.pas' {Form3},
  FulScreen in 'FulScreen.pas' {Form5},
  poperty1 in 'poperty1.pas' {Form6};
  //OPneMore in 'OPneMore.pas' {Form4};

{$R *.res}//编译器 $R指出与项目同名，扩展名为res 的资源文件链接到项目中

begin    //下面是项目的主要源代码块

  Application.Initialize; //执行项目的初始化操作 

  Application.CreateForm(TForm1, Form1);
  Application.Title:='渐美播放器';
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.Run;// 用来启动程序
end.