usoundselect.pas

群组对话,组播版,分为服务器端和客户端代码,详细功能有介绍

unit uSoundSelect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Registry, Dialogs, MPlayer, Buttons, StdCtrls, ExtCtrls;

type
  TfrmSoundSelect = class(TForm)
    Me_Play: TMediaPlayer;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    Panel2: TPanel;
    CheckBox2: TCheckBox;
    Panel3: TPanel;
    CheckBox3: TCheckBox;
    ed_MessageS: TEdit;
    Ed_LoginS: TEdit;
    Ed_ExitS: TEdit;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    GroupBox1: TGroupBox;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Op_Sound: TOpenDialog;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bSave: boolean;
  end;

var
  frmSoundSelect: TfrmSoundSelect;

implementation

{$R *.dfm}

procedure TfrmSoundSelect.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    if Op_Sound.Execute then
      ED_MEssageS.Text := OP_Sound.FileName;
end;

procedure TfrmSoundSelect.CheckBox2Click(Sender: TObject);
begin
  if checkbox2.Checked then
    if Op_Sound.Execute then
      ED_LoginS.Text := OP_Sound.FileName;

end;

procedure TfrmSoundSelect.CheckBox3Click(Sender: TObject);
begin
  if checkbox3.Checked then
    if Op_Sound.Execute then
      Ed_exitS.Text := OP_Sound.FileName;
end;

procedure TfrmSoundSelect.SpeedButton1Click(Sender: TObject);
begin
  if Ed_MessageS.Text <> '' then
  begin
    Me_Play.FileName := ED_MEssageS.Text;
    Me_play.Open;
    Me_play.Play;
  end;
end;

procedure TfrmSoundSelect.SpeedButton2Click(Sender: TObject);
begin
  if ED_LoginS.Text <> '' then
  begin
    Me_Play.FileName := ED_Logins.Text;
    Me_play.Play;
  end;
end;

procedure TfrmSoundSelect.SpeedButton3Click(Sender: TObject);
begin
  if ED_ExitS.Text <> '' then
  begin
    Me_Play.FileName := ED_ExitS.Text;
    Me_play.Play;
  end;
end;

procedure TfrmSoundSelect.BitBtn1Click(Sender: TObject);
var
  m_reg: TRegistry;
  sTempStr: string;
begin
  m_Reg := TRegistry.Create;
  m_Reg.RootKey := hkey_current_user;
  m_Reg.OpenKey('Software\WeConnect', true);
  //以只读方式打开Weconnect的目录d
  m_Reg.writeString('m_Message', Ed_MessageS.Text);
  m_Reg.WriteString('m_Login', Ed_LoginS.Text);
  m_Reg.WriteString('m_Exit', Ed_exitS.Text);
  m_reg.Free;
end;

procedure TfrmSoundSelect.Button2Click(Sender: TObject);
begin
  close;
end;

end.