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;
Pergunta
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:
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.