[angvelem]

Собственно задачу я решил, но вопрос остался. При использовании мультимедийного таймера (TimeSetEvent), загрузка файла не происходит

procedure OnTimer(uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
begin
  ...
  Sound.LoadFromFile(Name);
  ...
end;
  ...
  Sound := TSound.Create;
  Timer := TimeSetEvent(500, 1, @OnTimer, 0, TIME_PERIODIC);

через обычный таймер всё нормально

procedure OnTimer(Wnd : HWND; Msg, idEvent, dwTime : Longint); stdcall;
begin
  ...
  Sound.LoadFromFile(Name);
  ...
end;
  ...
  Sound := TSound.Create;
  SetTimer(Wnd, 1, 500, @OnTimer);

здесь происходит загрузка файла

procedure TSound.LoadFromFile(Name : String);
var
  WideName : array[0..MAX_PATH - 1] of WideChar;
begin
  if Name = '' then
    Exit;

  MultiByteToWideChar(CP_ACP, 0, PChar(Name), -1, WideName, MAX_PATH);
  if FAILED(pLoader.LoadObjectFromFile(CLSID_DirectMusicSegment, IID_IDirectMusicSegment8, WideName, pSegment)) then
    Exit;
  ...

Так и не понял причину такого поведения.

[cotseec]

может быть колдунство здесь

procedure ChangeBkMusicTimer (uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
  ...
  Timer := TimeSetEvent(500, 1, @OnTimer, 0, TIME_PERIODIC);

таймеру передается одна процедура (OnTimer), а загрузка файла происходит в другой (ChangeBkMusicTimer )

[angvelem]

Да это я забыл здесь исправить.

[cotseec]

пальцем в небо......
может разрешение (аргумент UINT uResolution) уж очень слишком мал, что-то там не так синхронизируется с потоком таймера при попытке загрузки файла
больше мыслей нет

З.Ы. при обнаружении причины такого поведения просьба отписаться....интересно ведь

[angvelem]

Не знаю, но при включении TimeSetEvent в класс TSound:

procedure OnTimer(uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
begin
  ...
  TSound(dwUser).LoadFromFile(Name);
  ...
end;

constructor TSound.Create;
begin
  fTimer := TimeSetEvent(500, 1, @OnTimer, DWORD(Self), TIME_PERIODIC);
end;

файл грузится. Хотя, судя по отладчику, разницы при вызовах я не увидел.

[angvelem]

Судя по всему, проблема в том, что мультимедийный таймер работает в собственном потоке и интерфейсу DirectX это ооочень не нравится. Сделал как предлагает справка: из процедуры таймера посылаю сообщение главному окну с нужными мне параметрами, а уже оно производит загрузку и воспроизведение файла.