Vérification d'une carte son

Verification d'une carte son

Verification d'une carte son : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour verifier si une carte son est installee ou non.
Cette astuce n'est pas le mien, il m'a ete envoye par e-mail.
fonction de IsSoundCardInstalled : Boolean
type
& nbsp & nbsp SCFunc = fonction : UInt stdcall
var
& nbsp & nbsp LibInst : LongInt
& nbsp & nbsp point d'entree : SCFunc
begin
& nbsp & nbsp Result := False
& nbsp & nbsp LibInst := LoadLibrary(PChar('winmm.dll'))
& nbsp & nbsp essayer
& ! & ! & ! & nbsp Si LibInst <> 0 then
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp point d'entree := GetProcAddress(LibInst, 'waveOutGetNumDevs')
& ! & ! & ! & ! & ! & nbsp si (EntryPoint <> 0) alors le Resultat := True
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp si (LibInst <> 0) alors FreeLibrary(LibInst)
& nbsp & nbsp fin
fin