ugloabvar.pas

来自「这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活」· PAS 代码 · 共 70 行

unit uGloabVar;

interface

uses
  classes, comctrls, registry,Sysutils,windows,Printers,Dialogs;


var
  DBName : string='';
  BellName : string='';
  ViewOper : boolean = True;
procedure ReadFromReg;
procedure WriteReg;

implementation


procedure ReadFromReg;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKey_CURRENT_USER;
  if not Reg.KeyExists('SoftWare\智能作息控制系统') then
  begin
    Reg.OpenKey('SoftWare\智能作息控制系统',True);
    Reg.WriteString('DataPath',GetCurrentDir+'\Data');
    Reg.WriteString('BellPath',GetCurrentDir+'\Bellring');
    DBName := GetCurrentDir+'\Data';
    BellName:= GetCurrentDir+'\Bellring';

  end
  else begin
    Reg.OpenKey('SoftWare\智能作息控制系统',False);

    try
      DBName := Reg.ReadString('DataPath');
    except
      Reg.WriteString('DataPath',GetCurrentDir+'\Data');
      DBName := GetCurrentDir+'\Data';
    end;

    try
      BellName := Reg.ReadString('BellPath');
    except
      Reg.WriteString('BellPath',GetCurrentDir+'\Bellring');
      BellName := GetCurrentDir+'\Bellring';
    end;

  end;
  Reg.Free;
end;

procedure WriteReg;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKey_CURRENT_USER;
  Reg.OpenKey('SoftWare\智能作息控制系统',True);
  Reg.WriteString('DataPath',DBName);
  Reg.WriteString('BellPath',BellName);

  Reg.Free;
end;


end.