Lautstärke von midi Datei ändern...

[Mazel]

Hi,

ich habe es nun gelöst mit folgenden Code:

Delphi-Quellcode:

type
 TVolumeRec = record
   case Integer of
    0: (LongVolume: Longint);
    1: (LeftVolume, RightVolume: Word);
  end;

var
 i: Integer;
 Vol: TVolumeRec;

begin
  for i:=MIDIOUTGetNumDevs - 1 downto 0 do MIDIDeviceID:=i;
  Vol.LeftVolume:=Volume shl 8;
  Vol.RightVolume:=Volume shl 8;
  MidiOutSetVolume(MIDIDeviceID, Vol.LongVolume);
end;

Gruß
Mazel