shezhi.pas

基于delphi媒体播放器的源代码 很全面

unit shezhi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, XPMan, Buttons, ExtCtrls,mmsystem,pubunit,
  jpeg,shellapi, OleCtrls, SHDocVw;

type
  TForm2 = class(TForm)
    StatusBar1: TStatusBar;
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox4: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Image1: TImage;
    GroupBox3: TGroupBox;
    http: TEdit;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox7: TGroupBox;
    WebBrowser1: TWebBrowser;
    Label3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure httpKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
     procedure wmgetminmaxinfo(var msg:Twmgetminmaxinfo); message wm_getminmaxinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses unit1,small,shipinunit;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,0', SW_SHOWNORMAL);
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
if  RadioButton3.Checked=true then
  begin
  MMSystem.mciSendString('set cdaudio door open wait',nil,0,0);
  end
else
  abort;
end;

procedure TForm2.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked=true then
  begin
  MMSystem.mciSendString('set cdaudio door closed wait',nil,0,0);
  end
else
  abort;

end;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position<13 then
  SetWaveLeft(13-TrackBar1.Position)
else if TrackBar1.Position>13 then
  SetWaveRigth(TrackBar1.Position-13)
else
  SetWaveBalance(13);
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
form1.BitBtn5.Visible:=false;
form1.BitBtn10.Visible:=true;

end;

procedure TForm2.FormShow(Sender: TObject);
begin
WebBrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\link.swf');
Form2.Top:=form1.Top;
form2.Width:=370;
form2.Left:=Form1.Left+282;
form2.Height:=228;
if shipinform.zuixiaohua=true then
  begin
    CheckBox1.Enabled:=false;
    CheckBox2.Enabled:=false;
    RadioButton1.Enabled:=false;
    RadioButton2.Enabled:=false;
  end
else
  begin
      CheckBox1.Enabled:=true;
    CheckBox2.Enabled:=true;
    RadioButton1.Enabled:=true;
    RadioButton2.Enabled:=true;
  end;
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
  begin
    Form1.tloop:=true;
    form1.loop.Font.Color:=clred;
  end
else
  begin
    form1.tloop:=false;
    form1.loop.Font.Color:=clgreen;
  end;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
if form1.rando<>true then
  form1.rando:=true
else
  form1.rando:=false;
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
Form1.rando:=false;
end;

procedure TForm2.httpKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_return) then
  ShellExecute(0, nil, pchar(http.Text), nil, nil, SW_NORMAL);
end;

procedure TForm2.WMGetMinMaxInfo( var Msg :TWMGetMinMaxInfo );
begin
with Msg.MinMaxInfo^ do
begin
ptMaxSize.X := 370;
ptMaxSize.Y := 228;
ptMaxPosition.X := form1.Left+form1.Width; 
ptMaxPosition.Y := Form1.Top;
ptMinTrackSize:=point(370,228);
ptMaxTrackSize:=point(370,228);
end;
Msg.Result := 0;
inherited; 
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl,,0', SW_SHOWNORMAL);

end;

procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked=true then
  begin
    form1.Hide;
    form6.Show;
  end
else
  begin
    form6.Hide;
    form1.Show;
  end;
end;


procedure TForm2.Label3Click(Sender: TObject);
begin
ShellExecute(0, nil, pchar('mailto:[e-mail]'), nil, nil, SW_NORMAL);
end;

end.