Is a sound card available/de
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
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;