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;