Is a sound card available/de

From Lazarus wiki
Revision as of 08:06, 18 February 2020 by Trev (talk | contribs) (Fixed syntax highlighting; deleted category included in page template)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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;