kontrol over lyd (volume-kontrol)

Kan det her ikke bruges?

  http://delphi.about.com/cs/adptips2000/a/bltip0800_4.htm

Her er min unit - som jeg desværre ikke kan få til at virke (klokken er også for mange). Arbejder videre når jeg får tid igen:

unit UVolume;

interface

type
  TDeviceTypes = (adtWave,
                  adtMIDI,
                  adtCDAudio,
                  adtLineIn,
                  adtMicrophone,
                  adtMaster,
                  adtPCLoudspeaker);

const
  DeviceNames: array[TDeviceTypes] of string =
      ('Wave',
        'MIDI',
        'CDAudio',
        'Line-In',
        'Microphone',
        'Master',
        'PC-loudspeaker');

procedure SetVolume(const aDeviceType: TDeviceTypes; const aVolume: byte);
function GetVolume(const aDeviceType: TDeviceTypes): cardinal;

implementation

uses
  Windows, MMSystem;

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

procedure SetVolume(const aDeviceType: TDeviceTypes; const aVolume: byte);
var
  Vol: TVolumeRec;
begin
  Vol.LeftVolume := aVolume shl 8;
  Vol.RightVolume := Vol.LeftVolume;
  auxSetVolume(UINT(aDeviceType), Vol.LongVolume) ;
end;

function GetVolume(const aDeviceType: TDeviceTypes): cardinal;
var
  Vol: TVolumeRec;
begin
  AuxGetVolume(UINT(aDeviceType),@Vol.LongVolume) ;
  Result := (Vol.LeftVolume + Vol.RightVolume) shr 9;
end;

------------------------- o -------------------------

Der var andre links her:

http://msdn2.microsoft.com/en-us/library/ms706247.aspx
http://www.pellesoft.se/communicate/tips/tips.aspx?tid=726

Det vil jeg se nærmere på.
Håbede dog på en windows kommando som var en del af OS-systemet.
Dette er dog en god metode (specielt da jeg ikke tror at der findes et direkte OS-kald).

Det er der nu også. Hvis du kigger i koden vil du se at den kalder en funktion i winmm.dll - som er en af XP's