Показать сообщение отдельно
Старый 28.01.2011, 14:07   #506
Местный
 
Аватар для Azury
 
Регистрация: 22.02.2010
Сообщений: 136
Сказал Спасибо: 1
Имеет 16 спасибок в 16 сообщенях
Azury пока неопределено
По умолчанию

Цитата:
Сообщение от RODMAN91 Посмотреть сообщение
Подскажите пожалуйста, какую строчку вставить, чтобы проигрывался звуковой файл при заточке или остановке?
Например вот в этом куске кода я так понял происходит остановка при полученой заточке. Можно тут как то звук вставить?

if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
debugmsg('Достигли требуемого уровня улучшения! Прервано!');
ButtonStartEnchant.Enabled:=true;
ButtonStopEnchant.Enabled:=false;
exit;
end;


А вобще сам скрипт взят отсюда
Код:
if (strtoint(Edit2.text)>=strtoint(Edit1.Text)) then begin
    msg.Lines.Add('Достигли требуемого уровня улучшения! Прервано!');
    debugmsg('Достигли требуемого уровня улучшения! Прервано!');
// думаю в этом месте по логике можно поставить звук
    ButtonStartEnchant.Enabled:=true;
    ButtonStopEnchant.Enabled:=false;
    exit;
  end;
__________________
AMD Phenom II 920 (3.2ghz); 4 gb RAM 1066; Seagate 250gb, WD 600GB, Radeon HD4890
Core i7 2600k(3.5ghz); 8 gb RAM 1600; Seagate 250gb, WD 600GB, Radeon HD4890
Azury вне форума   Ответить с цитированием