unitregister.~pas

来自「关于手持机的LCD显示模块的设计LCD的显示固定为每行16个字符」· ~PAS 代码 · 共 85 行

unit UnitRegister;

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
 Dialogs, ComCtrls, ExtCtrls, StdCtrls,registry;

 Var


   Reg:Tregistry;
   KeyName:string;
   RegCreatTrueOrFalse:boolean;
   ComPortNumberStr:string;
   ComBaudrateSet:integer;

   function RegisterReadForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string):string;
   procedure RegisterFirstWriteForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string;RegisterKeyValue:string);
   procedure RegisterWriteForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string;RegisterKeyValue:string);
implementation

function RegisterReadForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string):string;
 begin
    try
      //创建注册表，有该键则读取，无则创建
      Reg:=Tregistry.Create ;
      Reg.RootKey :=hkey_local_machine;
      KeyName:='Software\SearialCardWriteReadData\' +RegisterCardDirectory;
      RegCreatTrueOrFalse :=Reg.OpenKey(KeyName,false);
      Reg.CloseKey ;
      if  Reg.OpenKey(KeyName,true) then
          if Reg.ReadString(RegisterKeyName)='' then
                showmessage('还没有在注册表中写入串口信息!')
              else
                result:=Reg.ReadString(RegisterKeyName);

    Reg.CloseKey ;
    finally
       Reg.Free ;
    end;
end;

procedure RegisterFirstWriteForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string;RegisterKeyValue:string);
var
  Reg:Tregistry;
  KeyName:string;
   begin
    try
      //创建注册表，有该键则读取，无则创建
      Reg:=Tregistry.Create ;
      Reg.RootKey :=hkey_local_machine;
      KeyName:='Software\SearialCardWriteReadData\' +RegisterCardDirectory;
      if  Reg.OpenKey(KeyName,true) then
          if Reg.ReadString(RegisterKeyName)='' then
                Reg.WriteString(RegisterKeyName,RegisterKeyValue);

    Reg.CloseKey ;
    finally
       Reg.Free ;
    end;
end;

procedure RegisterWriteForComSetUp(RegisterCardDirectory:string; RegisterKeyName:string;RegisterKeyValue:string);
var
  Reg:Tregistry;
  KeyName:string;
   begin
    try
      //创建注册表，有该键则读取，无则创建
      Reg:=Tregistry.Create ;
      Reg.RootKey :=hkey_local_machine;
      KeyName:='Software\SearialCardWriteReadData\' +RegisterCardDirectory;
      if  Reg.OpenKey(KeyName,true) then
            Reg.WriteString(RegisterKeyName,RegisterKeyValue);

    Reg.CloseKey ;
    finally
       Reg.Free ;
    end;
end;



end.