myplayer.dpr

delphi2007写的播放器源码。效果类似于千千静听。

program myPlayer;

uses
  windows,
  Forms,
  Main in 'Main.pas' {Form1},
  ComVariable in 'ComVariable.pas',
  ComFunction in 'ComFunction.pas',
  bass in 'bass\bass.pas',
  BassVideo in 'bass\BassVideo.pas',
  PlayList in 'playlist\PlayList.pas' {Form2},
  Video in 'video\Video.pas' {frmVideo},
  circle_vis in 'visual\circle_vis.pas',
  osc_vis in 'visual\osc_vis.pas',
  spectrum_vis in 'visual\spectrum_vis.pas',
  Visual in 'visual\Visual.pas' {Form4},
  EditLyric in 'Lyric\EditLyric.pas' {Form5},
  Lyric in 'Lyric\Lyric.pas' {Form3},
  tags in 'bass\tags.pas';

{$R *.res}

var
  Mutex:THandle;
begin
  Application.Initialize;
  //创建互斥对象
  Mutex:=CreateMutex(NIL,false,'SingleApp');
  if (Mutex = 0) then
  begin
    //创建对象失败
    exit;
  end;
  //查看是否第一次运行
  if ((Mutex <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then
  begin
    //不是第一次运行，关闭互斥对象，退出程序
    CloseHandle(Mutex);
    exit;
  end;

  Application.MainFormOnTaskbar := True;
  Application.Title := 'myPlayer';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TfrmVideo, frmVideo);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
  //关闭互斥对象
  CloseHandle(Mutex);

end.