Как определить установлена ли звуковая карта?
Материал из DRKB
Как определить установлена ли звуковая карта?[править | править код]
if WaveOutGetNumDevs > 0 then
ShowMessage('Wave-Device present')
else
ShowMessage('No Wave-Device present');
ID: 02262
function IsSoundCardInstalled: Boolean;
type
SCFunc = function: UInt; stdcall;
var
LibInst: LongInt;
EntryPoint: SCFunc;
begin
Result := False;
LibInst := LoadLibrary(PChar('winmm.dll'));
try
if LibInst <> 0 then
begin
EntryPoint := GetProcAddress(LibInst, 'waveOutGetNumDevs');
if (EntryPoint <> 0) then
Result := True;
end;
finally
if (LibInst <> 0) then
FreeLibrary(LibInst);
end;
end;
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 02261