Fórum Controlando o Volume (pequeno Problema) #166834

Fiz um programa para controlar o volume do PC, compilei no Windows XP e funciona perfeitamente, mas quando rodo no Windows ME não funciona (não da erro, mas tambem nao consigo controlar o volume). Então tentei compilar pelo Windows ME, e o resultado foi o mesmo. Álguem poderia me esclarecer o problema?
Segue o codigo utilizado abaixo:



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
lpdwVolume: LONGINT;
iCanalEsquerdo,iCanalDireito: INTEGER;
wDeviceID: WORD;
const DeviceIndex=0;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
wDeviceID:= 0;
waveOutGetVolume( wDeviceID, @lpdwVolume );
iCanalEsquerdo:= LoWord(lpdwVolume);
iCanalDireito:= HiWord(lpdwVolume);
trackbar2.Position:=icanalesquerdo;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
icanalesquerdo:=trackbar2.Position;
icanaldireito:=trackbar2.Position;
waveOutSetVolume( wDeviceID, MakeLong( iCanalEsquerdo, iCanalDireito ) );
end;