【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“addhost.pas”一文,供大家参考学习
unit addhost;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, IniFiles;
type
TForm2 = class(TForm)
Edit1: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
procedure AddPC;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses main;
{$R *.dfm}
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form2.Close;
end;
procedure TForm2.AddPC;
var
IniSet:tinifile;
i:integer;
begin
IniSet:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'hostlist.ini');
IniSet.WriteString ('hostname',edit1.Text,edit1.Text);
IniSet.Free;
form1.CheckListBox1.Items.Add(edit1.Text);
edit1.Clear;
form2.Close;
form1.refpc;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
AddPc;
end;
procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then AddPc;
end;
end.