简单问题---保存密码、自动登录等的实现

Question

小弟才开始学delphi，还请各位多多帮助！我想做一个类似腾讯QQ一样的那样登录窗口，
1、可以保存密码到本地
2、可以自动登录
3、可以保存在本机上登录成功的用户名大家说一下自己的思路好吗？
有源代码当然最好了

Answer 1

写到INI文件或自侧表就可以了

Answer 2

建个ACCESS数据库，保存帐户信息。

Answer 3

三种方法：
ini
注册表
数据库（多用户系统推荐）

Answer 4

To : hellolongbin(一个人[散分贴一律征收20%灌水税]) ( ) 注册表？能具体点吗？我没写过，不知道怎么在注册表里存，该怎么存，怎么取

Answer 5

注册表参考下面的操作{************************************************************************
* 名称：用于string写注册表信息的过程
*
* 参数: 1. MarkName: 注册标志名称
*       2. Values : 字符串值写入注册表的值
*
* 版本：最后修改于：2003.06.17             编写：dengwen
************************************************************************}
procedure TDwShare.WriteRegInfoStr(Path,MarkName,Values:string);
var
  registertemp : tregistry;
begin
 registertemp := tregistry.create; //准备使用注册表
 with registertemp do
 begin
   rootkey:=HKEY_CURRENT_USER; //存放在此根下
   //Path :注册表路经
   if openkey(Path,true) then
    begin
       writestring(MarkName,Values);
    end;
    closekey;
    free;
 end;end;{************************************************************************
* 名称：用于Integer写注册表信息的过程
*
* 参数: 1. MarkName: 注册标志名称
*       2. Values : Integer值写入注册表的值
*
* 版本：最后修改于：2003.06.17             编写：dengwen
************************************************************************}
procedure TDwShare.WriteRegInfoInt(Path,MarkName:string;Values:integer);
var
  registertemp : tregistry;
begin
 registertemp := tregistry.create; //准备使用注册表
 with registertemp do
 begin
   rootkey:=HKEY_CURRENT_USER; //存放在此根下
   if openkey(Path,true) then
    begin
       writeInteger(MarkName,Values);
    end;
    closekey;
    free;
 end;end;{************************************************************************
* 名称：用于string截取字符串
*
* 参数: 1. Str: 欲截取的字符串
*       2. Start : 开始位置
*       3. Number: 字符个数
*
* 返回: 截取后的字符串
*
* 版本：最后修改于：2003.06.17              编写：dengwen
************************************************************************}
function TDwShare.ReadRegInfoStr(Path,MarkValues :String):String;
var
  registertemp : tregistry;
begin
 registertemp := tregistry.create; //准备使用注册表
 with registertemp do
 begin
   rootkey:=HKEY_CURRENT_USER; //存放在此根下
   if openkey(Path,true) then
    begin
       if valueexists(MarkValues) then  //标志是否存在？
          Result:=Readstring(MarkValues)//读出标志值
       else
           Result:='';
    end;
    closekey;
    free;         reintroduce
 end;
end;{************************************************************************
* 名称：用于从注册表中读取Integer值
*
* 参数: 1. Str: 欲截取的字符串
*       2. Start : 开始位置
*       3. Number: 字符个数
*
* 返回: 截取后的字符串
*
* 版本：最后修改于：2003.06.17              编写：dengwen
************************************************************************}
function TDwShare.ReadRegInfoInt(Path,MarkValues :String):Integer;
var
  registertemp : tregistry;
begin
 result:= 1;
 registertemp := tregistry.create; //准备使用注册表
 with registertemp do
 begin
   rootkey:=HKEY_CURRENT_USER; //存放在此根下
   // Path:注册表路径
   if openkey(Path,true) then
    begin
       if valueexists(MarkValues) then  //标志是否存在？
          Result:=ReadInteger(MarkValues)//读出标志值
       else
           Result:=0;
    end;
    closekey;
    free;
 end;
end;

Answer 6

加密后，存在ini文件中，NO problem.