DirextX编程

开发平台：

Delphi

AudioConfig.pas：源码内容

							unit AudioConfig;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, LMDCustomControl, LMDCustomPanel,
  LMDCustomTrackBar, LMDTrackBar, TFlatSpeedButtonUnit, StdCtrls, ExtCtrls;
type
  TAuForm = class(TForm)
    LMDTrackBar4: TLMDTrackBar;
    Bevel1: TBevel;
    Image1: TImage;
    Image2: TImage;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure LMDTrackBar4Track(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  AuForm: TAuForm;
implementation
uses WHPlaySDK;
{$R *.dfm}
procedure TAuForm.FormShow(Sender: TObject);
Var
    Val1,Val2:LongInt;
begin
    dllConfig('GETAUDIOBALANCE',Val1,Val2);
    LMDTrackBar4.Position:=Val1+10000;
end;
procedure TAuForm.LMDTrackBar4Track(Sender: TObject;
  ScrollCode: TScrollCode; var ScrollPos: Integer);
Var
    Val1,Val2:LongInt;
begin
    Val1:=ScrollPos-10000;
    dllConfig('SETAUDIOBALANCE',Val1,Val2);
end;
procedure TAuForm.FlatSpeedButton2Click(Sender: TObject);
Var
    Val1,Val2:Integer;
begin
    DllConfig('SHOWAUDIOPROPERTY',Val1,Val2);
end;
procedure TAuForm.FlatSpeedButton3Click(Sender: TObject);
Var
    Pos:Integer;
begin
    LMDTrackBar4.Position:=10000;
    Pos:=LMDTrackBar4.Position;
    LMDTrackBar4.OnTrack(LMDTrackBar4,TScrollCode(0),Pos);
end;
end.

						