Звук связаный с memo

[Fokuss]

Добрый день всем. У меня такая проблема, есть чат хотелось бы сделать чтобы при новом сообщении в memo от пользователя издавался звук, а как реализовать не знаю. Помогите пожалуйста

[mihali4]

По событию Memo1Change.
http://www.programmersforum.ru/showthread.php?t=116615

[Fokuss]

Вообщем звук сделал но он теперь воспроизводится при отправлении сообщения и при приеме а мне надо только при приеме(

procedure TForm1.Memo1Change(Sender: TObject);
begin
Playsound('C:\Documents and Settings\administrator\Рабочий стол\chat\sound\wapos.wav',0,0);
end;

А еще как сделать чтобы файл брался из папки \sound\wapos.wav вот так, а не чтоб C:\Documents and Settings\administrator\Рабочий стол\chat\sound\wapos.wav

[mihali4]

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

По теме - свой каталог:

extractfilepath(paramstr(0));

И, если отправка - установить флаг nosound=True.
А в procedure TForm1.Memo1Change анализировать этот флаг.

[Fokuss]

спасибо
вот только с путем все же не могу понять как сделать

[mihali4]

extractfilepath(paramstr(0))+'\sound\wapos.wav'