Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Звук при получение сообщения как в Асе!


Автор: The MASTER 31.8.2004, 12:34
Здравствуйте, мне нужно следующие, вот у меня чат:
Если окно свёрнуто, то в панели задач приложение должно мигать и проиграться 1 раз звук в формате *.wav!
Помогите пожалуйста мне так сделать!

Автор: Kesh 31.8.2004, 12:44
При каком событии?..

Автор: The MASTER 31.8.2004, 12:49
Тоесть, я не понял, если свёрнуто окно чата!

Автор: The MASTER 31.8.2004, 17:01
Ну неуже нельзя а? sample.gif

Автор: Illusion Dolphin 31.8.2004, 17:10
1)
Цитата
приложение должно мигать

Код

SetForegroundWindow()


2)
Цитата
проиграться 1 раз звук в формате *.wav

TMediaPlayer!
MediaPlayer1.FileName:= 'sound.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;

Автор: The MASTER 31.8.2004, 20:27
Нет а как опеделить что Форма минимизирована! smile.gif

Автор: Illusion Dolphin 31.8.2004, 20:54
Попробуй
Код
MyForm.Visible

Автор: The MASTER 31.8.2004, 21:51
А не укого нету примеров простенького Чата, т.к. у моего непонятные глюки и быги, лучше не обсуждать тут их, а то такое начнётся! qstn.gif Ой!!!!

Автор: The MASTER 31.8.2004, 22:14
Это, Visible не работает! Там я думаю, что надо через TApplication делать, т.к. там есть похожая процедура! smile.gif

Автор: Illusion Dolphin 31.8.2004, 22:31
Цитата
Это, Visible не работает

Ошибка, похоже, в 17-й строчке wink.gif...
Код в студию! (или хотя бы поясни что когда после чего и от чего должно работать и происходить)

Автор: The MASTER 1.9.2004, 09:27
Вот у меня Чат, в нём RichEdit, Client Socket, так вот:
Если приложение свёрнуто а сообщение получено, тогда оно должно мигать, и издать звук!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)