adminunit.pas

很不错的软件请使用

unit AdminUnit;

interface

uses
  Windows, Messages,Registry,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, shellapi,ToolEdit, ExtCtrls, RXCtrls, XPMenu;

type
  TAdminFrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    RxLabel1: TRxLabel;
    Panel3: TPanel;
    RxLabel2: TRxLabel;
    Edit1: TEdit;
    RxLabel3: TRxLabel;
    Edit2: TEdit;
    RxLabel4: TRxLabel;
    Edit3: TEdit;
    RxLabel5: TRxLabel;
    Edit4: TEdit;
    FilenameEdit1: TFilenameEdit;
    FilenameEdit2: TFilenameEdit;
    FilenameEdit3: TFilenameEdit;
    RxLabel6: TRxLabel;
    RxLabel7: TRxLabel;
    FilenameEdit4: TFilenameEdit;
    RxLabel8: TRxLabel;
    FilenameEdit5: TFilenameEdit;
    RxLabel9: TRxLabel;
    FilenameEdit6: TFilenameEdit;
    RxLabel10: TRxLabel;
    RxLabel11: TRxLabel;
    RxLabel12: TRxLabel;
    Edit5: TEdit;
    RxLabel13: TRxLabel;
    Edit6: TEdit;
    RxLabel14: TRxLabel;
    Edit7: TEdit;
    RxLabel15: TRxLabel;
    RxLabel16: TRxLabel;
    RxLabel17: TRxLabel;
    RxLabel18: TRxLabel;
    Edit11: TEdit;
    RxLabel19: TRxLabel;
    Edit12: TEdit;
    RxLabel20: TRxLabel;
    Edit13: TEdit;
    RxLabel21: TRxLabel;
    Edit14: TEdit;
    RxLabel22: TRxLabel;
    Edit15: TEdit;
    RxLabel23: TRxLabel;
    Edit16: TEdit;
    RxLabel24: TRxLabel;
    Edit17: TEdit;
    XPMenu1: TXPMenu;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    EDIT8: TDirectoryEdit;
    EDIT9: TDirectoryEdit;
    EDIT10: TDirectoryEdit;
    Button4: TButton;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AdminFrm: TAdminFrm;

implementation

{$R *.dfm}

procedure TAdminFrm.FormCreate(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
 try
 Reg.RootKey:=HKEY_CURRENT_USER;
  if (Reg.OpenKey('\Software\NormalSystem',false))=False then
   begin  //如果注册表中没有信息则创建初始化信息
   Reg.CreateKey('\Software\NormalSystem');
   Reg.OpenKey('\Software\NormalSystem', True);
   Reg.WriteString('MainAppName','荆棘鸟通用人口管理系统');
   Reg.WriteString('MainAppTitle','荆棘鸟通用人口管理系统');
   Reg.WriteString('MainAppIcon','c:\programe files\NormalSystem\Main.ico');
   Reg.WriteString('MainAppBgImage','c:\programe files\NormalSystem\BackGround.bmp');
   Reg.WriteString('MainAppLoginBgImage','c:\programe files\NormalSystem\Login.bmp');
   Reg.WriteString('MainAppTitleImage','c:\programe files\NormalSystem\Title.bmp');
   Reg.WriteString('MainAppLogoImage','c:\programe files\NormalSystem\Logo.bmp');
   Reg.WriteString('MainAppLogoString','警告：本系统受国际公约保护');
   Reg.WriteString('MainAppHelpName','c:\programe files\NormalSystem\Help.htm');
   Reg.WriteString('MainAppPrintTitle','XX公司流动人口暂住证');
   Reg.WriteString('MainAppPrintMemo','本证同身份证使用有效');
   Reg.WriteString('MainAppAboutTitle_1','XX有限责任公司');
   Reg.WriteString('MainAppAboutTitle_2','人口档案管理系统');
   Reg.WriteString('MainAppPath','c:\Program files\NormalSystem');
   Reg.WriteString('MainDataBasePath','c:\Program files\NormalSystem\MDB');
   Reg.WriteString('BackUpDatabasePath','c:\Program files\NormalSystem\MDB\BackUp');
   Reg.WriteString('MainDataBaseName','NormalSystem.Mdb');
   Reg.WriteString('BackUpDataBaseName','BackUpNormalSystem.Mdb');
   Reg.WriteString('MainDataBasePassword','6A9BDHF5N055');
   Reg.Writebool  ('MainAppReg',false);
   Reg.WriteString('MainAppBottomSting','〖荆棘鸟媒体互动技术网络〗');
   Reg.WriteString('MainAppAdminPassword','admin');
   Reg.WriteString('MainAppVerson','荆棘鸟通用人口档案查询管理系统 V4.3');
   Reg.WriteString('MainAppConString','Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\NormalSystem\Mdb\MainDataBase.Mdb;Jet OLEDB:Database Password=6A9BDHF5N055;Persist Security Info=False');
   Reg.CloseKey;
  end
  finally
  //提取初始化数据
  try
  Reg.RootKey:=HKEY_CURRENT_USER;
   if (Reg.OpenKey('\Software\NormalSystem',false))=False then
   begin
    MessageBox(Handle,'注册表错误导致程序终止！！','警告',MB_OK or MB_ICONSTOP);
    free;
    Application.Terminate;
    end else
    Reg.CreateKey('\Software\NormalSystem');
    Reg.OpenKey('\Software\NormalSystem', True);
    try
     begin
     edit1.Text:=Reg.ReadString('MainAppName');
     edit2.Text:=Reg.ReadString('MainAppTitle');
     filenameedit1.Text:=Reg.ReadString('MainAppIcon');
     filenameedit2.Text:=Reg.ReadString('MainAppBgImage');
     filenameedit3.Text:=Reg.ReadString('MainAppLoginBgImage');
     filenameedit4.Text:=Reg.ReadString('MainAppTitleImage');
     filenameedit5.Text:=Reg.ReadString('MainAppLogoImage');
     filenameedit6.Text:=Reg.ReadString('MainAppHelpName');
     edit3.Text:=Reg.ReadString('MainAppLogoString');
     edit4.Text:=Reg.ReadString('MainAppPrintTitle');
     edit5.Text:=Reg.ReadString('MainAppPrintMemo');
     edit6.Text:=Reg.ReadString('MainAppAboutTitle_1');
     edit7.Text:=Reg.ReadString('MainAppAboutTitle_2');
     edit8.Text:=Reg.ReadString('MainAppPath');
     edit9.Text:=Reg.ReadString('MainDataBasePath');
     edit10.Text:=Reg.ReadString('BackUpDatabasePath');
     edit11.Text:=Reg.ReadString('MainDataBaseName');
     edit12.Text:=Reg.ReadString('BackUpDataBaseName');
     edit13.Text:=Reg.ReadString('MainDataBasePassword');
     edit14.Text:=Reg.ReadString('MainAppBottomSting');
     edit15.Text:=Reg.ReadString('MainAppAdminPassword');
     edit16.Text:=Reg.ReadString('MainAppVerson');
     edit17.Text:=Reg.ReadString('MainAppConString');
     end;
    except
     MessageBox(Handle,'注册表错误导致程序终止！！','警告',MB_OK or MB_ICONSTOP);
     free;
     Application.Terminate;
    end;
 finally
 end;
 Reg.CloseKey;
 Reg.Free;
 end;
end;

procedure TAdminFrm.Button2Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('MSINFO32.EXE'),nil,nil,sw_shownormal);
end;

procedure TAdminFrm.Button3Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TAdminFrm.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
 try
 Reg.RootKey:=HKEY_CURRENT_USER;
  if (Reg.OpenKey('\Software\NormalSystem',false))=False then
   begin
   MessageBox(Handle,'注册表错误导致程序终止！！','警告',MB_OK or MB_ICONSTOP);
   free;
   Application.Terminate;
  end else
  try
   begin
    Reg.OpenKey('\Software\NormalSystem', True);
    Reg.WriteString('MainAppName',edit1.text);
    Reg.WriteString('MainAppTitle',edit2.text);
    Reg.WriteString('MainAppIcon',filenameedit1.Text);
    Reg.WriteString('MainAppBgImage',filenameedit2.Text);
    Reg.WriteString('MainAppLoginBgImage',filenameedit3.Text);
    Reg.WriteString('MainAppTitleImage',filenameedit4.Text);
    Reg.WriteString('MainAppLogoImage',filenameedit5.Text);
    Reg.WriteString('MainAppLogoString',edit3.text);
    Reg.WriteString('MainAppHelpName',filenameedit6.Text);
    Reg.WriteString('MainAppPrintTitle',edit4.text);
    Reg.WriteString('MainAppPrintMemo',edit5.text);
    Reg.WriteString('MainAppAboutTitle_1',edit6.text);
    Reg.WriteString('MainAppAboutTitle_2',edit7.text);
    Reg.WriteString('MainAppPath',edit8.text);
    Reg.WriteString('MainDataBasePath',edit9.text);
    Reg.WriteString('BackUpDatabasePath',edit10.text);
    Reg.WriteString('MainDataBaseName',edit11.text);
    Reg.WriteString('BackUpDataBaseName',edit12.text);
    Reg.WriteString('MainDataBasePassword',edit13.text);
    Reg.WriteString('MainAppBottomSting',edit14.text);
    Reg.WriteString('MainAppAdminPassword',edit15.text);
    Reg.WriteString('MainAppVerson',edit16.text);
    Reg.WriteString('MainAppConString',edit17.text);
    Reg.CloseKey;
   end;
   except
   begin
    MessageBox(Handle,'注册表错误导致程序终止！！','警告',MB_OK or MB_ICONSTOP);
    free;
    Application.Terminate;
   end;
  end
  finally
 end;
 Reg.CloseKey;
 Reg.Free;
 MessageBox(Handle,'你已经成功地修改了程序初始化参数！','系统信息',MB_OK or MB_iconinformation);
 button5.SetFocus;
 EXIT;
end;

procedure TAdminFrm.Button4Click(Sender: TObject);
begin
close;
end;

end.