Media Player

uses MMSystem;

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

const DeviceIndex=5
      {0:Wave
      1:MIDI
      2:CDAudio
      3:Line-In
      4:Microphone
      5:Master
      6:PC-loudspeaker}
   
procedure SetVolume(aVolume:Byte);
var Vol: TVolumeRec;
begin
  Vol.LeftVolume := aVolume shl 8;
  Vol.RightVolume:= Vol.LeftVolume;
  auxSetVolume(UINT(DeviceIndex), Vol.LongVolume);
end;

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

det skulle kunne gøre det :)

jeg kan ikke få det til at virke
men hvis du nu laver et lille program i delphi hvor du kan skroe op og ned og så sender du det til mig på snokey@tele2adsl.dk
det skal slevføglelig være så jeg kan gå ind og se hvad jeg gør forkert

http://www.swissdelphicenter.ch/torry/showcode.php?id=630

Tror det her virker.

Ellers prøv det her: http://www.swissdelphicenter.ch/torry/showcode.php?id=618

kan du så ikke lave en form til mig i delphi er ikke så god endnu men lære af at se noget andet

http://www.hejhej105.frac.dk/Volume.zip

Takker for point :-)

det er da mig der takker det er lige sådan et svar jeg hvade brog for nu ved jeg nemelig hvad jeg gjore forkert