ReadyGo!技术成就梦想 网络搜索 efish 2008-1-13 11:11:53

！！！！！！！！！！！！！！！！！！11注册表操作问题

楼主thygw（Jash）2002-01-04 17:56:11 在 Delphi / VCL组件开发及应用 提问

每次程序运行时读注册表来使用上次程序关闭时得程序设置：  
   
  比如保存程序运行时的字体到注册表，下次程序启动时读注册表！  
   
  请问，如何实现？ 问题点数：20、回复次数：7Top

1 楼thygw（Jash）回复于 2002-01-04 18:04:41 得分 0

怎么没有人告诉我？Top

2 楼xxmmmx（踢踏）回复于 2002-01-04 18:40:35 得分 5

procedure   TSetupForm.FormActivate(Sender:   TObject);  
  begin  
      OnActivate:=nil;  
      pReg:=nil;  
      try  
          pReg:=TRegistry.Create();  
          pReg.RootKey:=HKEY_LOCAL_MACHINE;  
          if   pReg.OpenKey(SYSKEY,false)=true   then     //SYSKEY:系统键,比如:SYSKEY="\SoftWare\csdn"  
          begin  
              MaskEdit1.Text:=pReg.ReadString("Font");  
              MaskEdit2.Text:=pReg.ReadString("Position");  
              MaskEdit3.Text:=pReg.ReadString("User");  
              MaskEdit4.Text:=pReg.ReadString("Password");  
          end    
      finally  
          pReg.CloseKey;  
      end;  
  end;  
  Top

3 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-01-05 02:55:44 得分 15

uses  
      Registry,   TypInfo;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      with   TRegistry.Create   do   try  
          RootKey   :=   HKEY_CURRENT_USER;  
          if   OpenKey("\Software\MySoft\Font",   False)   then   begin  
              Font.Name   :=   ReadString("Name");  
              Font.Size   :=   StrToIntDef(ReadString("Size"),   0);  
              Font.Color   :=   StringToColor(ReadString("Color"));  
              SetSetProp(Font,   "Style",   ReadString("Style"));  
              CloseKey;  
          end;  
      finally  
          Free;  
      end;  
  end;  
   
  procedure   TForm1.FormDestroy(Sender:   TObject);  
  begin  
      with   TRegistry.Create   do   try  
          RootKey   :=   HKEY_CURRENT_USER;  
          if   OpenKey("\Software\MySoft\Font",   True)   then   begin  
              WriteString("Name",   Font.Name);  
              WriteString("Size",   IntToStr(Font.Size));  
              WriteString("Color",   ColorToString(Font.Color));  
              WriteString("Style",   GetSetProp(Font,   "Style"));  
              CloseKey;  
          end;  
      finally  
          Free;  
      end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      if   FontDialog1.Execute   then   Font.Assign(FontDialog1.Font);  
  end;  
  Top

4 楼pdsinfo（新手）回复于 2002-01-05 09:01:32 得分 0

写到ini文件华中也可以呀,偶不喜欢往注册表里加东西  
  :pTop

5 楼thygw（Jash）回复于 2002-01-05 10:14:08 得分 0

to   ：　zswang(伴水)(需要充充电)　能否解释一下GetSetProp等等，以及还有其他什么函数？  
   
  谢了Top

6 楼zswangII（伴水清清)(一贴不灌，何以灌天下？）回复于 2002-01-05 10:28:24 得分 0

SetSetProp()//设置集合属性  
  GetSetProp()//获取集合属性  
  SetStrProp()//设置字符属性  
  GetStrProp()//获取字符属性  
  SetOrdProp()//设置有序属性  
  GetOrdProp()//获取有序属性Top

7 楼thygw（Jash）回复于 2002-01-05 10:34:07 得分 0

谢谢，谢谢，非常感谢！Top