Delphi-Quellcode:
uses mmsystem;
procedure TForm1.FormShow(Sender: TObject);
begin
PlaySound(Dateiname,NIL,SND_ASYNC) // ich glaube das in die Mitte Nil muss
end;
So gehts. Wie gesagt mit dem 2. Parameter bin ich mir nicht sicher. Es müssen .wav Dateien sein.