登录
首页 » Delphi源码 » Delphi 静音 左右声道音量控制

Delphi 静音 左右声道音量控制

于 2022-06-02 发布 文件大小:11.98 kB
0 106
下载积分: 2 下载次数: 1

代码说明:

Delphi控制系统静音,两个声道均不发出声音,同时若在非静态状态下,可控制左、右声道的音量大小,在代码中@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,在调节左声道的时候,不改变右声道}数字前面加$表示是十六进制数字,(t shl 8)表示t左移8位,部分参数设置代码如下:   procedure TForm1.FormCreate(Sender: TObject);   var    v:longint;   begin    waveoutgetvolume(0,@v);//得到现在音量,@v表示指向变量v的指针(32位)    trackbar1.Position:=hi(v);//设置左滑块的正确位置    trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论


0 个回复

  • Delphi获取从开机到现在CPU运行的周期数
    Delphi获取从开机到现在CPU运行的周期数,不是获取开机时间多长,是CPU的周期数,显示的值为数字字符串,运行效果如示例截图所示。代码段:   begin   Edit1.Text := inttostr(periodicity);   end;
    2022-07-05 04:51:29下载
    积分:1
  • Delphi7 获取文件的修改时间
    Delphi7 获取文件的修改时间,这是一个文件操作实例源代码,获取到文件被修改的时间,代码简单,适合Delphi新手学习参考。
    2022-03-25 03:51:22下载
    积分:1
  • 返回底数的任何次幂-Delphi方法
    Delphi 返回底数的任何次幂,本演示求2的4次幂、3的3次幂,求解过程如下:   procedure TForm1.Button1Click(Sender: TObject);   begin    Edit1.Text := FloatToStr(Power(2,4));    Edit2.Text := FloatToStr(Power(3,3));   end;   以上代码定义在按钮事件中,当用户单击按钮后激活。
    2022-03-01 01:34:29下载
    积分:1
  • Delphi 将TColor换算成RGB
    Delphi 将TColor换算成RGB,将一种颜色按照RGB颜色分量的形式分离出来,显示各自的颜色值,类似于一个拾色器的功能,你可从列表中选择任意一种颜色,然后查看获取到的颜色分量的值,如示例截图所示。
    2023-07-28 04:55:03下载
    积分:1
  • Delphi 演示0~N位数的任意组合
    Delphi 数列的排列组合一例,演示0~N位数的任意组合,组合的数字在0~5之间,需要输入1~6整数,排列结果会显示在文本框组件中。要点代码如下:   ssList := TStringList.Create;   try    if (nBase < 1) then    begin    end    else    begin    if (sList.Count = 0) then    begin    for nIdx := 0 to num-1 do    ssList.Add(a[nIdx]);    end    else    begin    for nIdx := 0 to num-1 do    for nSidx := 0 to sList.Count-1 do    if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then    ssList.Add(a[nIdx]+sList.Strings[nSidx]);    end;    Combine(nBase-1, ssList);    end;    if ssList.Count > 0 then    begin    sList.Clear;    sList.Text := ssList.Text;sslist.Count    end;   finally    ssList.Free;   end;
    2022-04-29 16:59:03下载
    积分:1
  • Delphi 记录文件的读写
    Delphi 记录文件的读写,这个程序非数据库程序,实际上也不是文件读写程序,只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据,确定后,会将数据添加到主窗口的StringGrid中,然后通过修改命令,从StringGrid中再读取出数据,进行修改保存,演示了文件内容的读取和写入的操作过程 。
    2022-02-12 09:49:41下载
    积分:1
  • Delphi窗口淡入淡出渐变fadein fadeout动画效果
    Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果,除了渐变,还有其它的动画形式,比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变,其它动画效果被注释掉了,如果你想用,可以去掉注释标记。   //淡入效果   //AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);   //从中心扩散   //AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);   //水平从左到右   //AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);   //水平从右到左   //AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);   //垂直从上到下   //AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);   //垂直从下到上
    2022-06-11 17:51:21下载
    积分:1
  • Delphi 模拟制作Windows XP风格界面的下拉页
    Delphi 模拟制作Windows XP风格界面的下拉页,实际上就是XP资源管理器界面的右侧窗口,鼠标单击会向下展开,再次单击会重新合拢,像一个折叠展开的面板那样,这种形式的窗口在Windows中已经早有应用,这只是一个用Delphi代码仿写的效果,希望对大家的Delphi界面设计有所帮助。
    2022-07-24 03:34:24下载
    积分:1
  • Delphi 创建Excel表格文件
    Delphi 读取SQLSERVER数据库内容,并创建Excel表格文件,将内容导出到excel文件中,核心同样是基于createoleobject对象的excel.application方法实现,创建EXECEL对象 ,添加comobj单元,用循环加入记录,将数据表导入到Excel表中,正式开始EXECEL输出。
    2022-02-15 04:17:26下载
    积分:1
  • Delphi 判断字符串是否为日期或时间
    Delphi 判断字符串是否为日期或时间,检查用户输入的时间格式是否正确,判断用户输入的是否是时间字符串,这个虽然麻烦些,不过这个例子将问题简单化,有兴趣的参考源码。
    2022-08-24 16:56:14下载
    积分:1
  • 696518资源总数
  • 104434会员总数
  • 22今日下载