ureginfo.pas

学生成绩管理系统开发软件

unit UREGINFO;
interface
uses  Windows,SysUtils, Controls,registry;
Function RegNumber(CPU_ID:LongInt):string;
Function RegCreate(RegName:string):boolean;
Function RegReg(RegName,ID:string):boolean;
Function RegReturnStr(RegName,RegKey:string):string;
Function RegReturnDate(RegName,RegKey:string):TDate;
Function RegKeyCheck(RegName:string):boolean;

implementation
uses UTIL;

Function RegNumber(CPU_ID:LongInt):string;
var T_Reg:Longint;
begin
 T_Reg  := (((CPU_ID*3)+3)*3)+2;
 Result := Copy(inttoStr(T_Reg),1,8);
end;

Function RegCreate(RegName:string):boolean;
var Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(RegName,True) then
      begin
      Reg.WriteDate('RUN_FIRST_DATE',date);
      Reg.WriteInteger('CUP_ID',GetCPUID[4]);
      Reg.WriteString('SF_ID'   ,'');
      Result := true;
      end else result := false;
   finally
     Reg.CloseKey;
     Reg.Free;
   end;
end;

Function RegReg(RegName,ID:string):boolean;
var Reg :TRegistry;
begin
  Reg := TRegistry.Create;
  try
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey(RegName,True) then
     begin
     Reg.Writestring('SF_ID',ID);
     Result := true;
     end else Result := False;
  finally
     Reg.CloseKey;
     Reg.Free
  end;
end;

Function RegReturnStr(RegName,RegKey:string):string;
var REg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(RegName,true) then
    Result := REg.ReadString(RegKey);
  finally
    Reg.CloseKey;
    REg.Free;
  end;
end;

Function RegReturnDate(RegName,RegKey:string):TDate;
var Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(RegName,True) then
    Result := Reg.ReadDate(RegKey);
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

Function RegKeyCheck(RegName:string):boolean;
var Reg:TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Result := Reg.KeyExists(RegName);
  finally
    Reg.CloseKey;
    REg.Free;
  end;
end;
end.