Überprüfung auf eine Soundkarte
Gewusst wie: überprüfen, ob eine Soundkarte oder nicht installiert ist.
Dieser Tipp ist nicht meine eigene, es wurde mir per e-Mail geschickt.
Funktion IsSoundCardInstalled: Boolean;
Typ
SCFunc = Function: UInt; Stdcall;
var
LibInst: LongInt;
EntryPoint: SCFunc;
beginnen
Ergebnis: = False;
LibInst: = LoadLibrary(PChar('winmm.dll'));
versuchen Sie
Wenn LibInst <> 0 dann
beginnen
EntryPoint: = GetProcAddress (LibInst, 'WaveOutGetNumDevs');
Wenn (EntryPoint <> 0) then Result: = True;
Ende;
Schließlich
Wenn (LibInst <> 0) dann FreeLibrary(LibInst);
Ende;
Ende;
Überprüfung auf eine Soundkarte
Überprüfung auf eine Soundkarte : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Gewusst wie: überprüfen, ob eine Soundkarte oder nicht installiert ist.
Dieser Tipp ist nicht meine eigene, es wurde mir per e-Mail geschickt.
Funktion IsSoundCardInstalled: Boolean;
Typ
SCFunc = Function: UInt; Stdcall;
var
LibInst: LongInt;
EntryPoint: SCFunc;
beginnen
Ergebnis: = False;
LibInst: = LoadLibrary(PChar('winmm.dll'));
versuchen Sie
Wenn LibInst <> 0 dann
beginnen
EntryPoint: = GetProcAddress (LibInst, 'WaveOutGetNumDevs');
Wenn (EntryPoint <> 0) then Result: = True;
Ende;
Schließlich
Wenn (LibInst <> 0) dann FreeLibrary(LibInst);
Ende;
Ende;
Überprüfung auf eine Soundkarte
By Wiezutun
Überprüfung auf eine Soundkarte : Mehreren tausend Tipps, um Ihr Leben einfacher machen.