Mega Code Archive

 

Categories / Delphi / Multimedia

 

Wav muzik dosyasinin tmediaplayer kullanmadan calinmasi

function PlayWavFile(const FileName: string): Boolean; begin Result := PlaySound(PChar(FileName), 0, SND_ASYNC); end; // O anda sistem tarafindan calinan sesi durdurur procedure StopWav; var buffer: array[0..2] of char; begin buffer[0] := #0; PlaySound(Buffer, 0, SND_PURGE); end;