Tocar Som Do Windows

[McBlade]

Olá amigos!!

Como todos devem saber, ao utilizar a função Beep; o windows toca aquele somzinho de "Aviso sonoro padrão" (Win2k) ou "Som padrão" (Win9x).

Mas eu uso esse Beep; na hora que a minha rotina foi concluída com sucesso.

E quando a rotina cair em except eu gostaria de que o windows tocasse aquele som de erro (normalmente é o chord.wav). O Delphi tem alguma função que chama esse som do windows? (Asterisco,Exclamação,Parada crítica,Pergunta)

Um exemplo prático:

  try
    // Minhas rotinas a serem executadas... (Que demoram um monte)
    Transaction.CommitRetaining;
    Memo1.Lines.Add('Operação concluída!');
    FlashWindow(Handle,True);
    FlashWindow(Application.Handle,True);
    Beep;
  except
    on E:Exception do
    begin
      Transaction.Rollbackretaining;
      // Aqui eu queria colocar o som de erro
      Memo1.Lines.Add('Erro:'+#13+E.Message);
    end;
  end;

Editado Julho 11, 2005 por McBlade

[McBlade]

Andei procurando em outros fórums e encontrei uma que pra mim já resolve (Eu acho):

MessageBeep(MB_ICONERROR);