应该可以用ini文件或注册表
哈!我也是菜鸟,没用过,不过马上会用到了……

解决方案 »

  1.   

    同意SGP说的有具体问题不明白的请贴出来
      

  2.   

    首先,我要说明的是,你要实现的这个功能的目的,写在ini文件里有点不太合适.如果你想用我可你告诉你:
       1. 在uses中加入inifiles
       2. 使用下面的函数:
          function readint(filename,section,edent,defaulta:string):string;
            var 
              ini:Tintfile;
          begin 
            ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename);
            try
              result:=ini.readstring(Section,Ident,Defaulta);
            finally
              ini.free;
            end;
          end;
          procedure writeini(filename,section,Ident,defaulta:string);
          var
            ini:Tinifile;
          begin
            ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename);
            try
              ini.WriteString (Section,Ident,Defaulta);
            finally
              ini.free;
            end;
          end;以上是使用ini文件处理的方法.如果使用注册表,请到我的网站里找相应文章.http://go.163.com/~ssudi