mp3player.~dpr

来自「这是一个用Delphi开发的MP3播放器的源码」· ~DPR 代码 · 共 32 行

program Mp3Player;

uses
  Forms,
  Unit_Main in 'Unit_Main.pas' {Frm_Main},
  Unit_List in 'Unit_List.pas' {Frm_List},
  Unit_Work in 'Unit_Work.pas' {Frm_Work},
  Unit_Help in 'Unit_Help.pas' {Frm_Help},
  Unit_Pluse in 'Unit_Pluse.pas' {Frm_Pluse},
  Unit_Login in 'Unit_Login.pas' {Frm_Login},
  Unit_Play in 'Unit_Play.pas' {Frm_Play},
  Unit_Full in 'Unit_Full.pas' {Frm_Full};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '音乐天地1.0';

  Frm_Login:=TFrm_Login.Create(Application);
  Frm_Login.Timer.Enabled := True;
  Frm_Login.Show;
  while Frm_Login.Login_Off = False do
        Application.ProcessMessages;
        Frm_Login.Hide;
        Frm_Login.Free;

  Application.CreateForm(TFrm_Main, Frm_Main);
  Application.CreateForm(TFrm_Full, Frm_Full);
  Application.Run;
end.