delphi 固定注冊表項寫入和讀取函數

自己寫了兩個固定注冊表項目的函數，方便在統一項目中進行操作

//寫入注冊表操作

procedure TDM.WriteRegSPC(_KeyName, _KeyValue: string);
var
   SubKeys:TRegistry;       //首先定義一個TRegistry類型的變量Reg
begin
   SubKeys:=TRegistry.Create;
   try                           //創建一個新鍵
     SubKeys.RootKey:=HKEY_LOCAL_MACHINE;     //將根鍵設置為HKEY_LOCAL_MACHINE
     if SubKeys.OpenKey('SOFTWARE\Tyler\SPC',true) then begin
        SubKeys.WriteString(_KeyName,_KeyValue);           //在SubKeys這個鍵中寫入數據名稱和數據數值
     end
     else begin
        SubKeys.WriteString(_KeyName,_KeyValue);           //在SubKeys這個鍵中寫入數據名稱和數據數值
     end;
   finally
     SubKeys.CloseKey;       //關閉鍵
     SubKeys.Free;
   end;
end;

//讀取注冊表操作

function TDM.ReadRegSPC(_KeyName: string): string;
var
   SubKeys:TRegistry;       //首先定義一個TRegistry類型的變量Reg
   _Result:string;
begin
   SubKeys:=TRegistry.Create;
   try                           //創建一個新鍵
     SubKeys.RootKey:=HKEY_LOCAL_MACHINE;     //將根鍵設置為HKEY_LOCAL_MACHINE
     if SubKeys.OpenKey('SOFTWARE\Tyler\SPC',true) then begin
        _Result:= SubKeys.ReadString(_KeyName);           //在SubKeys這個鍵中寫入數據名稱和數據數值
     end
     else begin
        _Result:='';           //在SubKeys這個鍵中寫入數據名稱和數據數值
     end;
   finally
     SubKeys.CloseKey;       //關閉鍵
     SubKeys.Free;
   end;
   if _Result='' then _Result:='0';
   Result := _Result;
end;

使用例子：
     WriteRegSPC('server','192.168.1.100');
     WriteRegSPC('password','123');

     _server:=ReadRegSPC('server');
     _password:=ReadRegSPC('password');