ipdress.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit ipdress;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  lmdctrl, lmdstdcS, StdCtrls, Buttons, ExtCtrls;

type
  Tipform = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    LMDSimpleLabel1: TLMDSimpleLabel;
    Memo1: TMemo;
    ProgramIcon: TImage;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ipform: Tipform;

implementation

uses Unit1;

{$R *.DFM}

procedure Tipform.FormActivate(Sender: TObject);
begin

form1.enabled:=false;
end;

procedure Tipform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.enabled:=true;
end;

procedure Tipform.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tipform.FormCreate(Sender: TObject);
begin
   if not fileexists(form1.DirectoryListBox3.directory+'\ip.dat') then
     begin
     memo1.Lines.Clear;
     memo1.Lines.Add('202.96.172.215');
     memo1.Lines.SaveToFile(form1.DirectoryListBox3.directory+'\ip.dat');
     edit1.Text:='202.96.172.215';
     end else
     begin
     memo1.Lines.Clear;
     memo1.Lines.LoadFromFile(form1.DirectoryListBox3.directory+'\ip.dat');
     edit1.Text:=memo1.Lines[0];
     end;
end;


procedure Tipform.BitBtn1Click(Sender: TObject);
begin
  if trim(edit1.Text)<>'' then
   begin
    {==========================}
     memo1.Lines.Clear;
     memo1.Lines.Add(edit1.Text);
     memo1.Lines.SaveToFile(form1.DirectoryListBox3.directory+'\ip.dat');
     close;

    {==========================}
   end;

end;

end.