有关注册表的问题再次请教，注册表高手请进入！！！

Question

在注册表中大家都知道可以新建主键和键值本人希望将MIS系统的用户名和密码都放在注册表中本人希望在MIS系统的帐户管理窗口添加一个用户（用户，密码）
用户：注册表中的主键
密码：注册表中的键值然后在MIS系统的登陆时候用刚那个帐户登陆系统
在登陆窗口登陆系统
判断EDIT1。TEXT是否等于注册表中的用户名（主键）
AND EDIT2。TEXT是否等于注册表中的密码（键值）
*************************************************************************
现在本人的问题就是无法进行判断主键和键值{{{{{{{问题的关键在与无法获得主键和键值，请教高手}}}}}

Answer 1

这也行?那干脆不要密码了~~~汗~~~用VB,VC还要直接调API,可是有MSDN查询,自己试试也很容易搞定!现在Delphi对这些API都进行了封装,比用VB,VC已经简单了不少,帮助中有详细的例子,说明!应该不用别人在多说什么了吧?

Answer 2

在regedit.pas中有getkeyvalue函数可以获得
能不能书的再清楚一些，我做过很多关于注册表的程序

Answer 3

一个利用注册表的例子，希望对你有帮助：procedure TForm1.form1create(Sender: TObject);
var
re_id:integer;
registerTemp : TRegistry;
inputstr,get_id:string;
dy,clickedok:boolean;
begin
　dy:=false; //软件是否已到注册期、及是否允许继续使用的标志，当值为FALSE是为允许使用。
　registerTemp := TRegistry.Create; //准备使用注册表
　with registerTemp do
　begin
　　　RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下
　　　if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark',True) then
　　　　// 建一目录，存放标志值。当然也可以存放在已存在的目录下。怎么样，很难发现吧？
　　　　begin
　　　　　if valueexists('gc_id') then begin //用gc_id的值作为标志，首先判断其存在否？
　　　　　　　re_id:=readinteger('gc_id');//读出标志值
　　　　　　　if (re_id<>0) and (re_id<>100) then begin //若标志值为0，则说明已注册。
　　　　　　　　　　　　　　//若不为0且值不到100,说明虽未注册，但允许使用的次数尚未达到。
　　　　　　　　re_id:=re_id+5; //允许标志的最大值为100，每次加5，则最多只可用20次。
　　　　　　　　Writeinteger('gc_id',re_id);//将更新后的标志值写入注册表中。
　　　　　end;
　　　　　if re_id=100 then dy:=true; //假如值已到100，则应注册。
　　　　end
　　　else Writeinteger('gc_id',5);//建立标志，并置初始标志值。
　　end;
　　if dy then begin //若dy值为TRUE，则应提示用户输入注册码，进行注册。
　　　　clickedok:=InputQuery('您使用的是非注册软件,请输入注册码：',' ',inputstr);
　　　　if clickedok then begin
　　　　　　get_id:=inttostr(27593758*2);//注册码为55187516，当然可加入更杂的算法。
　　　　　　if get_id=inputstr then begin
　　　　　　　　Writeinteger('gc_id',0);//若输入的注册码正确，则将标志值置为0,即已注册。
　　　　　　　　CloseKey;
　　　　　　　　Free;
　　　　　　　end
　　　　　　else begin //若输入的注册码错误，应作出提示并拒绝让其继续使用
　　　　　　　　application.messagebox('注册码错误!请与作者联系!','警告框',mb_ok);
　　　　　　　　CloseKey;
　　　　　　　　Free;
　　　　　　　　application.terminate; //中止程序运行，拒绝让其继续使用
　　　　　　　end;
　　　　　　end
　　　　else begin //若用户不输入注册码，也应作出提示并拒绝让其继续使用
　　　　　　application.messagebox('请与作者联系，使用注册软件!','警告框',mb_ok);
　　　　　　CloseKey;
　　　　　　Free;
　　　　　　application.terminate;
　　　　　end;
　　end;
　end;
end;

Answer 4

可以通过tregistry类方便的对注册表进行操作可以用readstring函数