Difference between revisions of "Is a sound card available/de"

From Lazarus wiki
Jump to navigationJump to search
m
m (Fixed syntax highlighting; deleted category included in page template)
 
(One intermediate revision by one other user not shown)
Line 1: Line 1:
 
{{IsASoundCardAvailable}}
 
{{IsASoundCardAvailable}}
<br>
+
 
Zurück zur Seite [[code examples/de|Code Beispiele]].<br>
+
 
<br>
+
Zurück zur Seite [[code examples/de|Code Beispiele]].
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br>
+
 
Die Funktion prüft, ob sich eine Soundkarte im Rechner befindet.<br>
+
 
<syntaxhighlight>
+
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
 +
 
 +
Die Funktion prüft, ob sich eine Soundkarte im Rechner befindet.
 +
 
 +
<syntaxhighlight lang=pascal>
 
uses
 
uses
 
   ...;
 
   ...;
Line 22: Line 26:
 
     Result := 'Soundkarte vorhanden';
 
     Result := 'Soundkarte vorhanden';
 
end;
 
end;
 
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 08:29, 2 August 2013 (CEST)
 
[[Category:Code Parts/de]]{{AutoCategory}}
 

Latest revision as of 08:06, 18 February 2020

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;