Mega Code Archive

 

Categories / Delphi / Multimedia

 

Ses çalma ve video oynatma [non media player[mediaplayer componenti kullanmadan]]

//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}