闂備浇銆€閸嬫捇鏌熼婊冾暭妞ゃ儻鎷� (0) +1 闂佽崵濮嶅鍡楊伓 (0) +1 闂傚倸饪存禍鐑藉箯閿燂拷 (0) +1
闂備浇銆€閸嬫捇鏌熼婊冾暭妞ゃ儲鍨块弻鐔衡偓娑櫭慨鍥р攽椤曞棙瀚�闂備礁鎼悮顐﹀磿閸愯鑰块柛娑欐綑缂佲晠鏌熼婊冾暭妞ゃ儻鎷�>>
0

正在阅读:用注册表对delphi程序加密用注册表对delphi程序加密

2004-10-09 12:19 出处:CSDN 作者:liuboalex 责任编辑:huangpeidan


  edit2.Visible:=true; frmPass.Caption:=′请设置新密码′;

  edit1.SetFocus; OK.Caption:=′设置′;

  end; TheReg.CloseKey; end;

  finally TheReg.Free; end; end;

  二、按钮的响应代码:包括新设密码和验证密码。


  procedure TfrmPass.OKClick(Sender: TObject);

  begin

  //根据Edit2的显示与否判断已有密码,进行验证

  if edit2.Visible=false then begin

  if pass(edit1.text)=ValueStr then begin

  showmessage(′密码正确!′); end

  else begin

  showmessage(′密码不正确!无权操作!′);

  halt; end; end //无密码,设置新密码

  else begin

  if edit1.text=edit2.text then begin

  TheReg := TRegistry.Create;

  TheReg.RootKey := HKEY—LOCAL—MACHINE;

  KeyName := ′SOFTWARE\Mypassword′;

  if TheReg.OpenKey(KeyName, True) then

  TheReg.WriteString(tempStr,pass(edit1.text));

  TheReg.CloseKey; end

  else begin

  showmessage(′再次键入的密码不一致,请重输!′);


察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:

键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品
閹靛婧€鐠佸潡妫�閸ョ偛鍩屾い鍫曞劥