Hvordan sjekke om et lydkort er installert eller ikke.Dette tips er ikke min egen, ble det sendt til meg via email.function IsSoundCardInstalled: Boolean, skriver SCFunc = funksjon: UINT; STDCALL; Var LibInst: LongInt; Entrypoint: SCFunc; begynne Resultat: = False; LibInst: = Loadlibrary (PChar ('winmm.dll')); prøv Hvis LibInst < > 0 da begynne Entrypoint: = GetProcAddress (LibInst, 'waveOutGetNumDevs'); if (Entrypoint < > 0) deretter Resultat: = true; slutt; endelig if (LibInst < > 0) deretter FreeLibrary (LibInst); end, end; Anmeldelser
Next Page:Mer kontroll over MessageDlg