Использование компонента "будильник" через ListBox

[min@y™]

Если будет несколько будильников, надо иметь возможность проигрывать мелодию и при этом иметь возможность нормально работать с кнопками. в общем, мне посоветовали выделить проигрывание в отдельный поток.

да я не об этом. я вот об этом:

procedure TClockAlarm5Thread.Delay(dwMilliseconds: Integer);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds;
end;

procedure TClockAlarm5Thread.Execute;
begin
  while not Terminated do
  begin
    //sndPlaySound('C:/3285.wav', SND_ASYNC or SND_LOOP);
	beep;
	Delay(2000);
  end;
end;

я ж тебе готовый код дал, но ты его так и не посмотрел. uThreads.pas

[Zaresh]

min@y™, упустил этот код .смотрел uClocker. Сейчас глянул, но мне там не разобраться )) А как правильно будет? Почему не проигрывает звук? Это же системный, никаких проблем не должно возникать

[Zaresh]

min@y™, упустил этот код .смотрел uClocker. Сейчас глянул, но мне там не разобраться )) А как правильно будет? Почему не проигрывает звук? Это же системный, никаких проблем не должно возникать

P.S. Обновил предыдущий пост, там теперь есть скрин программы

[min@y™]

Сейчас глянул, но мне там не разобраться

ну, как хочешь. моё дело - предложить.

Почему не проигрывает звук?

хз. поставь там брейкпойнт для приличия.

[Zaresh]

а вообще как сам код? Я понимаю, что это тот еще говнокод, но по идее, звук должен работать или в каком-то месте я что-нибудь напортачил, что не дает ему играть?

[min@y™]

Да не знаю я. Воспользуйся отладчиком.
Я пришёл с работы, устал, на диване лежу.
Пойми правильно.

[Zaresh]

Все, понял )))