?? uregserver.pas
字號:
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -