how to close all forms Lazarus?

[Neprofi]

People like to close all forms Lazarus, when you click on the output it must withdraw from the program and immediately play a sound.

[Neprofi]

I know a way out for example form1. close.

but I have a lot of forms and I have a full output and not just close one form, and that would be lost in the sound output.

[Leledumbo]

Close the main form, and play sound at that's form's OnClose event.

[Neprofi]

what the hell

[mirce.vladimirov]

just do :

Code: [Select]

application.Terminate;
at any point in your code.

[Neprofi]

but as I write this and connect the sound I'm just throwing out a program and the sound does not play

[JanRoza]

Maybe you should show us your project code, so we could see what you do and how you try do it?

[Neprofi]

so I try to close the program and what would have played the song.

procedure TForm2.MenuItem9Click(Sender: TObject);
begin

if stream<>0 then        //если песня=0 то очищаем стреам
Bass_StreamFree(stream); //если песня=0 то очищаем стреам
stream:= Bass_streamcreatefile(false, PChar('sound\Sound_engl\pronunciation_en_goodbye.mp3'),0,0,0);
Bass_channelplay(stream,false);

Close; //закрытие формы одной
Application.Terminate; //полный выход с программы
end;   

[JanRoza]

Could it not be that the application.terminate prevents the song from playing, maybe you must let your application wait for the song to play and when the song is finished terminate the application.

[Neprofi]

and how to do it like using a timer can example small? please)