Is a sound card available/de

From Lazarus wiki
Jump to navigationJump to search

Deutsch (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;