Hallo,
das ist zwar auf wav bezogen könnte aber auch mit anderen Medien klapen, habe allerdings noch nichts anderes damit ausprobiert.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
SndPlaySound(PChar(ParamStr(2)), SND_ASYNC);
//SND_SYNC = Während die Datei abgespielt wird, steht das Prog.
//SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt
//SND_LOOP = Immer wieder und immer wieder
Label1.Caption:=ParamStr(1);
Button1.SetFocus;
Beep;
end;
Grüsse, Daniel
