Difference between revisions of "Is a sound card available/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{IsASoundCardAvailable}} <br> <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Die Funktion prüft, ob sich eine Soundkarte im Rechner befindet.<br> <...") |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
{{IsASoundCardAvailable}} | {{IsASoundCardAvailable}} | ||
| − | + | ||
| − | + | ||
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
| − | Die Funktion prüft, ob sich eine Soundkarte im Rechner befindet. | + | |
| − | <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 12: | Line 17: | ||
Name 'waveOutGetNumDevs'; | Name 'waveOutGetNumDevs'; | ||
| + | // Funktion um den Aufruf der Windows-Dll zu demonstrieren | ||
function funTest: string; | function funTest: string; | ||
begin | begin | ||
| Line 20: | Line 26: | ||
Result := 'Soundkarte vorhanden'; | Result := 'Soundkarte vorhanden'; | ||
end; | end; | ||
| − | |||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
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;
