diff --git a/BassPlayer.pas b/BassPlayer.pas index d3f50db..131d8ba 100644 --- a/BassPlayer.pas +++ b/BassPlayer.pas @@ -192,6 +192,8 @@ procedure TBASSPlayer.ResetAudioChannel; function TBASSPlayer.Play: Boolean; begin Result := False; + if not IsInit then + Exit; if FOpenning then Exit; diff --git a/VKAudioPlayer.dpr b/VKAudioPlayer.dpr index d1159d4..557f969 100644 --- a/VKAudioPlayer.dpr +++ b/VKAudioPlayer.dpr @@ -3,7 +3,7 @@ program VKAudioPlayer; {$R *.dres} uses - VCLFlickerReduce in '..\#Fork\VCLFlickerReduce\VCLFlickerReduce.pas', + //VCLFlickerReduce in '..\#Fork\VCLFlickerReduce\VCLFlickerReduce.pas', Vcl.Forms, VKAP.Main in 'VKAP.Main.pas' {FormMain}, BassPlayer.Lib in 'BassPlayer.Lib.pas', diff --git a/VKAudioProject.groupproj b/VKAudioProject.groupproj index 1f2aafa..1ac58d2 100644 --- a/VKAudioProject.groupproj +++ b/VKAudioProject.groupproj @@ -6,9 +6,6 @@ - - - @@ -18,9 +15,6 @@ - - - @@ -47,15 +41,6 @@ - - - - - - - - - @@ -83,15 +68,6 @@ - - - - - - - - - @@ -120,13 +96,13 @@ - + - + - +