MIDI unendlich abspielen !!

[Daniel B]

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