Is a sound card available/de

Zurück zur Seite Code Beispiele.

Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.

Die Funktion prüft, ob sich eine Soundkarte im Rechner befindet.

uses
  ...;

// Aufruf der Windowsfunktion IsSoundkarte aus der Windows-DLL winmm.dll
function IsSoundKarte: longint; stdcall; external 'winmm.dll'
  Name 'waveOutGetNumDevs';

// Funktion um den Aufruf der Windows-Dll zu demonstrieren
function funTest: string;
begin

  if IsSoundKarte = 0 then
    Result := 'Keine Soundkarte vorhanden'
  else
    Result := 'Soundkarte vorhanden';
end;

From the Free Pascal wiki, page "Is a sound card available/de", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.