//www.dronymc.cjb.net
//drony@mynet.com
//icq:266148308
uses
MMSystem;
procedure TForm1.Button1Click(...);
begin
MCISendString(PChar(' play ' + 'C:\test.mid'), nil, 0, 0);
end; {stop} {.wav}
{pause} {.mp3}
{.wma}
veya
procedure TForm1.Button1Click(...);
begin
PlaySound('C:\test.wav', 0, SND_FILENAME + SND_ASYNC);
end; {SND_LOOP } {SND_SYNC}