Wie das zum Beispiel..
Nervt mich auch.
Delphi-Quellcode:
{$if CompilerVersion > 21} // Delphi XE or later
if i = -1 then
testDeviceID := MIDI_MAPPER
else
testDeviceID := i;
FError :=
midioutGetDevCaps(UIntPtr(testDeviceID), @midioutCaps, sizeof(TmidioutCaps));
{$else}
testDeviceID := i;
FError :=
midioutGetDevCaps(testDeviceID, @midioutCaps, sizeof(TmidioutCaps));
{$ifend}
wie soll man es denn sonst machen ?
testDeviceID wahrscheinlich nicht initialisiert
gruss