unit uRegServer;

interface

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

type
  TfrmxzBooksRegServer = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
  private
    fAppPath:string;
    Procedure CreateServerReg;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmxzBooksRegServer: TfrmxzBooksRegServer;

implementation

{$R *.dfm}

procedure TfrmxzBooksRegServer.CreateServerReg;
var Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if FileExists(fAppPath) then
    begin
      if Reg.OpenKey('Software\小珠圖書租賃管理系統(tǒng)', True) then
      begin
        Reg.WriteString('ApplicationPath',fAppPath);
        Reg.CloseKey;
        MessageDlg('小珠圖書租賃管理系統(tǒng)數(shù)據(jù)庫注冊成功！' + #13 + #13 +
            '感謝使用！'
            ,mtInformation,[mbOK],0);
      end;
    end
    else
      MessageDlg('當前目錄下沒有找到 sysDB.mdb 文件，注冊失敗！',mtError,[mbOK],0);
  finally
    Reg.Free;
  end;
end;

procedure TfrmxzBooksRegServer.FormCreate(Sender: TObject);
begin
  fAppPath:=ExtractFilePath(Application.ExeName);
  fAppPath:=fAppPath + 'sysDB.MDB';
end;

procedure TfrmxzBooksRegServer.FlatSpeedButton1Click(Sender: TObject);
begin
  CreateServerReg;
end;

procedure TfrmxzBooksRegServer.FlatSpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.