sample.dpr

来自「一个非常好用的MP3音乐播放控件」· DPR 代码 · 共 26 行

program Sample;

uses
  Forms,
  Player in 'Player.pas' {PlayerForm},
  URLEntry in 'URLEntry.pas' {URLEntryForm},
  Volume in 'Volume.pas' {VolumeForm},
  Info in 'Info.pas' {InfoForm},
  Equalizer in 'Equalizer.pas' {EqualizerForm},
  Modules in 'Modules.pas' {ModulesForm},
  Slider in 'Slider.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Xaudio Sample Player';
  Application.CreateForm(TPlayerForm, PlayerForm);
  Application.CreateForm(TURLEntryForm, URLEntryForm);
  Application.CreateForm(TVolumeForm, VolumeForm);
  Application.CreateForm(TInfoForm, InfoForm);
  Application.CreateForm(TEqualizerForm, EqualizerForm);
  Application.CreateForm(TModulesForm, ModulesForm);
  Application.Run;
end.