unit18.~pas

本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能

unit Unit18;

interface

uses
  Windows, Messages, SysUtils, mmsystem,Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, MPlayer, ComCtrls,jpeg,extctrls;

type
  TForm18 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    dimsound: TMenuItem;
    leftsound: TMenuItem;
    rightsound: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    TrackBar1: TTrackBar;
    MediaPlayer1: TMediaPlayer;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18.N2Click(Sender: TObject);
begin
 if opendialog1.Execute then
 begin
 mediaplayer1.FileName:=opendialog1.FileName;
 try
 mediaplayer1.Open;
 except
 showmessage('不能打开音频设备!');
 end;
 label2.visible:=true;
 label2.caption:='当前播放文件'+extractfilename(opendialog1.FileName);
 end;
 
end;

procedure TForm18.N3Click(Sender: TObject);
begin
    close;
end;

procedure TForm18.N11Click(Sender: TObject);
begin
showmessage('李达考试音频播放器')
end;

procedure TForm18.TrackBar1Change(Sender: TObject);
begin
auxsetvolume(1,(((255-trackbar1.Position)shl 8)or((255-trackbar1.Position)shl 24)));
end;


procedure TForm18.N5Click(Sender: TObject);
begin
mcisendstring('set all audio all on',nil,0,handle);
 dimsound.checked:=true;
 leftsound.checked:=false;
 rightsound.checked:=false;
end;

procedure TForm18.N6Click(Sender: TObject);
begin
 mcisendstring('set all audio all off',nil,0,handle);
 mcisendstring('set all audio left on',nil,0,handle);
 dimsound.checked:=false;
 leftsound.checked:=true;
 rightsound.checked:=false;
end;

procedure TForm18.N7Click(Sender: TObject);
begin
mcisendstring('set all audio all off',nil,0,handle);
 mcisendstring('set all audio right on',nil,0,handle);
 dimsound.checked:=false;
 leftsound.checked:=false;
 rightsound.checked:=true;
end;

procedure TForm18.N8Click(Sender: TObject);
begin
with trackbar1 do
if position>0 then
begin
 position:=position-1;
 auxsetvolume(0,(((255-Position)shl 8)or((255-Position)shl 24)));
 end;
end;

procedure TForm18.N9Click(Sender: TObject);
begin
 with trackbar1 do
if position<255 then
begin
 position:=position+1;
 auxsetvolume(0,(((255-Position)shl 8)or((255-Position)shl 24)));
 end;
end;

end.