日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

DELPHI操縱聲卡

DELPHI操縱聲卡

更新時間:2022-05-08 文章作者:未知 信息來源:網絡 閱讀次數:

檢查聲卡是否安裝
uses mmsystem;
...
function Soundkarte:Boolean;
begin
Result := WaveOutGetNumDevs >0;
end;
檢測聲卡存在
如果你是做一些多媒體播放器之類的程序時,為了完善系統的容錯性,就必須用到一些檢測系統的功能,其中檢測聲卡是否存在就是一個問題,下列程序幫你忙,首先需要在uses部分加入mmsystem ,接著在窗體創建時檢測聲卡:
procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
i := auxGetNumDevs();
if i<= then
label1.Caption :='系統沒有發現聲卡';
end;
控制聲音音量
當你做一個多媒體播放器時,難免少不了控制音量的大小和左右聲道的播放,下面就介紹一種控制Wave波形輸出設備音量的方法,該方法不是設置主音量。先在窗體上放兩個TTrackBar,分別命名為TrackBar1,TrackBar2,屬性Max都設置為65535,如果覺得刻度太密了,可以把Frequency屬性值設置大一些,然后在Uses段加入MMSystem,并在TrackBar1和TrackBar2的OnChange事件都寫上下列語句:
procedure TForm1.TrackBar1Change(Sender: TObject);
var Wave:string;
begin
Wave:='$'+inttohex(TrackBar1.Position
4)+inttohex(TrackBar2.Position
4);
waveoutsetvolume(0
strtoint(Wave));
end;
獲得和控制音量
unit uMain;
interface
uses
Windows
Messages
SysUtils
Classes
Controls
Forms
Dialogs
ExtCtrls
StdCtrls
mmsystem; //You must add this in the uses line
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
myvolume: array[0..10] of longint;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
Count
i: integer;
begin
Count := auxGetNumDevs;
for i := 0 to Count do
begin//The i is the device: I.E. 0=Wav Volume
auxgetvolume(i
addr(myvolume[i])); //Gets the values that the user has set
auxsetvolume(i
longint(9000)*65536+longint(9000)); //Sets the volume very very low
end; //The reason for the 9000*65536 + 9000 is if you wanted to do left and right channels
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Count
i: integer;
begin
Count := auxGetNumDevs;
for i := 0 to Count do
begin
auxsetvolume(i
myvolume[i]); //Sets the volume back to the users old settings
end;
end;

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产国语videosex另类 | 日本高清在线精品一区二区三区 | 欧美日韩在线第一页 | 无毒不卡在线播放 | 国产粉嫩00福利福利福利 | 日本人丰满xxxxhd | 国产手机在线精品 | 久一在线视频 | 青青视频免费观看 | 亚洲综合免费 | 亚洲成人国产精品 | 免费在线看a | 天天做天天爱天天爽天天综合 | 国产第一页浮力影院-欢迎你 | 伊人久久久综在合线久久在播 | 免费高清成人啪啪网站 | 天天做天天爱天天一爽一毛片 | 91嫩草视频在线观看 | 欧美亚洲日本国产 | www.xxxx.日本| 欧美一区欧美二区 | 内衣办公室动漫久久影院 | 久久综合综合久久97色 | 日本大尺度叫床戏做爰有声音 | 91欧美一区二区三区综合在线 | 亚洲mv国产精品mv日本mv | 国产大片免费看 | 国产精品成人免费视频99 | 欧美日韩一本大道香蕉欧美 | 四虎在线观看视频 | www.99久久爱.com | 在线看片a | 四虎在线成人免费网站 | 免费精品一区二区三区在线观看 | 日韩三级精品 | 黑人边吃奶边扎下面激情视频 | 日本福利视频在线观看 | 丝袜亚洲精品中文字幕一区首页 | 欧美日韩 在线播放 | 欧美日韩亚洲成色二本道三区 | 欧美日韩在线成人免费视频大全 |