unit2.pas

计算机网络与通信的知识

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,FileCtrl,Registry;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton2: TSpeedButton;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label7: TLabel;
    Edit5: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    function checksetup:boolean;
  end;

var
  Form2: TForm2;

implementation
  uses unit1;
{$R *.DFM}
function TForm2.checksetup:boolean;
begin
result:=false;
if edit1.Text='' then
    begin
    MessageBox(0,'请将路径设置正确！','设置错误',MB_OK+MB_ICONERROR);
    exit;
    end;
    try
    strtoint(edit2.text);
    except
        MessageBox(0,'请将服务端口设置正确！','设置错误',MB_OK+MB_ICONERROR);
        exit;
    end;
if edit2.Text='' then
    begin
    MessageBox(0,'请将路径设置正确！','设置错误',MB_OK+MB_ICONERROR);
    exit;
    end;
if ((strtoint(edit2.Text)>65535) or (strtoint(edit2.Text)<1)) then
    begin
    MessageBox(0,'端口是一个1—65535之间的数！','输入错误！',MB_OK+MB_ICONERROR);
    exit;
    end;
if edit3.Text='' then
    begin
    MessageBox(0,'请将备份路径设置正确！','设置错误',MB_OK+MB_ICONERROR);
    exit;
    end;
if edit5.Text='' then
    begin
    MessageBox(0,'请输入默认页面的名称！','设置错误',MB_OK+MB_ICONERROR);
    exit;
    end;
result:=true;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
dir:string;
begin
if SelectDirectory('选择根目录的位置','',dir) then
    edit1.Text:=dir;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
dir:string;
begin
dir:='c:\wwwroot';
if SelectDirectory('选择备份日志的位置','',dir) then
    edit3.Text:=dir;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
Var
RegF:TRegistry;
begin
    if not(checksetup) then
        exit;
    RegF:=TRegistry.Create;
    RegF.RootKey:=HKEY_LOCAL_MACHINE;

    RegF.OpenKey('SOFTWARE\dcs\httpserver',True);
    RegF.WriteString('rootdir',Edit1.Text);
    RegF.WriteString('port', edit2.Text);
    RegF.WriteString('backdir',edit3.Text);
    RegF.WriteString('intervaltime', edit4.Text);
    RegF.WriteString('auther', '杜长'+'胜');
    RegF.WriteString('edition', 'dcs-httpserver1.0');
    RegF.WriteString('defaultpage',edit5.text);
    RegF.CloseKey;

    RegF.Free;
    if MessageBox(0,'程序必须重新启动才能使用当前设置！','是否退出当前程序?',MB_YESNO+MB_ICONQUESTION)=IDNO	then
        close
    else
        form1.N3.Click;
end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(((Key>#47) and (Key<#58)) or (Key=#8)) then
    key:=#0;
end;

procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(((Key>#47) and (Key<#58)) or (Key=#8)) then
    key:=#0;
end;
end.