简单问题---保存密码、自动登录等的实现 小弟才开始学delphi,还请各位多多帮助!我想做一个类似腾讯QQ一样的那样登录窗口,1、可以保存密码到本地2、可以自动登录3、可以保存在本机上登录成功的用户名大家说一下自己的思路好吗?有源代码当然最好了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写到INI文件或自侧表就可以了 建个ACCESS数据库,保存帐户信息。 三种方法:ini注册表数据库(多用户系统推荐) To : hellolongbin(一个人[散分贴一律征收20%灌水税]) ( ) 注册表?能具体点吗?我没写过,不知道怎么在注册表里存,该怎么存,怎么取 注册表参考下面的操作{************************************************************************* 名称:用于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; 加密后,存在ini文件中,NO problem. Delphi 大家看看这段代码有什么问题啊 CreateOleObject 为何在线程中无法给窗体付值,有代码,请指教,第一次做多线程 TClientDataSet 中自动增长型列报 key violation 错误! 能在开一个以上的线程同时调用COM组件吗? 菜鸟问题 stringgrid中能不能换行显示文本?散分 各位兄弟:如何设置一个窗口的样式 下载FlatStyle2.1 有关ListView的简单问题 请问image可不可以想button那样停留TAB(tab order获得焦点) 朋友 mastersky(浪) 来领分!
ini
注册表
数据库(多用户系统推荐)
To : hellolongbin(一个人[散分贴一律征收20%灌水税]) ( ) 注册表?能具体点吗?我没写过,不知道怎么在注册表里存,该怎么存,怎么取
* 名称:用于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;