[Delphi] Volume Control

[Marv]

Ik ben op zoek naar een manier om het master volume in windows aan te kunnen passen in een eigen programma. Nu heb ik wel wat gevonden maar dat wil niet werken

Delphi:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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}

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(GetVolume));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetVolume(0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(inttostr(auxGetNumDevs))
end;

end.

Deze code (zonder button 1 t/m 3) heb ik van delphi.about.com maar het wil niet werken.... uit de help heb ik nog "auxGetNumDevs" gehaald en daar krijg ik 0 als result.. geen devices dus?

Op een win98 bak met sb16 krijg ik 7 bij auxgetnumdevs terug (en werkt het instellen van het geluid). Op mijn pc (winxp met sblive) werkt het dus niet. Iemand een idee wat er mis kan zijn?
Het programma wat ik aan het maken ben is voor die win98 bak maar ik vind het toch raar dat dit niet werkt in Winxp met sblive.

[Verwijderd]

Probeer eens waveOutGetNumDevs ipv auxGetNumDevs. auxGetNumDevs is voor CD's enzo, dacht ik zo, wel typisch dat jij er geen hebt

[Marv]

Verwijderd schreef op 30 september 2002 @ 18:50:
Probeer eens waveOutGetNumDevs ipv auxGetNumDevs. auxGetNumDevs is voor CD's enzo, dacht ik zo, wel typisch dat jij er geen hebt

Tnx

Delphi:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mmsystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetVolume(aVolume:Byte);
var Vol: TVolumeRec;
begin
  Vol.LeftVolume := aVolume shl 8;
  Vol.RightVolume:= Vol.LeftVolume;
  waveOutSetVolume(UINT(0), Vol.LongVolume);
end;


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


procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=(inttostr(waveOutGetNumDevs)); //aantal devices
label2.caption:=(inttostr(GetVolume));         //lees volumelevel
SetVolume(strtoint(edit1.Text));               //vul hier een nieuw volume in 0-255
label3.caption:=(inttostr(GetVolume));         //lees nieuw volumelevel
end;

end.

Zo werkt ie dus onder XP (met sblive) en onder Win98 (met sb16)