La comprobación de una tarjeta de sonido

La comprobacion de una tarjeta de sonido

La comprobacion de una tarjeta de sonido : Multi-millones de consejos para hacer su vida mas facil.

Como comprobar si una tarjeta de sonido esta instalada o no.
Este consejo no es mia, fue enviado a mi a traves de correo electronico.
funcion IsSoundCardInstalled : Boolean
tipo
& nbsp & nbsp SCFunc = funcion : UInt stdcall
var
& nbsp & nbsp LibInst : LongInt
& nbsp & nbsp punto de entrada : SCFunc
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp LibInst := LoadLibrary(PChar('winmm.dll'))
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp Si LibInst <> 0 then
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp punto de entrada := GetProcAddress(LibInst, 'waveOutGetNumDevs')
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si (punto de entrada <> 0) entonces el Resultado := True
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp si (LibInst <> 0) entonces FreeLibrary(LibInst)
& nbsp & nbsp final
fin