setup.~pas

网吧商品销售平台

unit setup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Menus,inifiles,Registry;

type
  TSetupForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    NoteEdit: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Bevel3: TBevel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    UserInfoEdit: TEdit;
    Bevel4: TBevel;
    ListBox1: TListBox;
    PopupMenu1: TPopupMenu;
    A1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    procedure Button2Click(Sender: TObject);
    procedure ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure A1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetupForm: TSetupForm;

implementation

{$R *.dfm}

procedure TSetupForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TSetupForm.ListBox1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
try
if Listbox1.Selected[listbox1.itemindex] =True then
begin
E1.Enabled:=True;
D1.Enabled:=True;
end
else
begin
E1.Enabled:=False;
D1.Enabled:=False;
end;
except
exit;
end;
end;

procedure TSetupForm.A1Click(Sender: TObject);
var addmessage:string;
begin
addmessage:=inputbox('提示','请输入要增加的消息：          ','');
if trim(addmessage)<>'' then Listbox1.Items.Add(addmessage);
end;

procedure TSetupForm.E1Click(Sender: TObject);
var editmessage:string;
begin
editmessage:=inputbox('提示','请修改下面的消息：           ',Listbox1.Items[Listbox1.itemindex]);
if trim(editmessage)<>'' then Listbox1.Items[Listbox1.itemindex]:=editmessage;
end;

procedure TSetupForm.D1Click(Sender: TObject);
begin
Listbox1.DeleteSelected;
end;

procedure TSetupForm.Button1Click(Sender: TObject);
var myini:Tinifile;
    i:integer;
    Reg:TRegistry;
begin
myini:=Tinifile.Create(ExtractFilePath(paramstr(0))+'SetupInfo.ZTD');
myini.WriteString('授权','UserInfo',UserInfoEdit.Text);
myini.WriteString('提示','NoteCaption',NoteEdit.Text);
myini.EraseSection('消息');
for i:=0 to Listbox1.Count -1 do
begin
myini.WriteString('消息',Pchar('message'+inttostr(i)),Listbox1.Items[i]);
end;
myini.Free;
myini:=Tinifile.Create(ExtractFilePath(paramstr(0))+'system.ZTD');
if checkbox1.Checked=True then
begin
myini.WriteBool('SYSTEM','AutoRun',True);
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false)=True then
begin
reg.WriteString('SaleServer',application.ExeName);
end;
reg.CloseKey;
reg.Free;
end
else
begin
myini.WriteBool('SYSTEM','AutoRun',False);
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false)=True then
begin
reg.DeleteKey('SaleServer');
end;
reg.CloseKey;
reg.Free;
end;
if checkbox2.Checked=True Then
begin
myini.WriteBool('SYSTEM','AutoStartService',True);
end
else
myini.WriteBool('SYSTEM','AutoStartService',False);
myini.Free;
application.MessageBox('设置已保存！重启服务端设置生效！','提示',MB_ICONINFORMATION);
close;
end;

end.