From: "Alexey Glotov" <imngen@east.ru>
Subject: Re: volume adjust
Date: 11 May 1999 00:00:00 GMT
Message-ID: <7hb3so$lvi$1@bull.east.ru>
Content-Transfer-Encoding: 7bit
References: <7h8m3u$c6$1@luke.urc.bl.ac.yu>
Content-Type: text/plain; charset="koi8-r"
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
X-Complaints-To: abuse@east.ru
X-Trace: bull.east.ru 926487257 22514 195.170.63.17 (12 May 1999 05:34:17 GMT)
Organization: East Connection ISP
Mime-Version: 1.0
NNTP-Posting-Date: 12 May 1999 05:34:17 GMT
Newsgroups: comp.lang.pascal.delphi.components.misc

Something like it. May be.

var
  WaveCaps: TWaveOutCaps;
  DoIt: LongInt;

var
  Volume: Byte;

begin
 WaveOutGetDevCaps(0,@WaveCaps,SizeOf(WaveCaps));
 if WaveCaps.dwSupport and WAVECAPS_VOLUME <> 0 then
 begin
  // Volume from 0 to 255
  Res:=((Volume shl 8) or (Volume shl 24));
  // Both channels - ((Volume shl 8) or (Volume shl 24));
  // Left channel  - (Volume or (Volume shl 8));
  // Right channel - ((Volume shl 16) or (Volume shl 24));
  WaveOutSetVolume(0,Res);
 end;
end;

>how to adjust volume from delphi