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

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

　　end; TheReg.CloseKey; end;

　　finally TheReg.Free; end; end;

　　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(′再次键入的密码不一致,请重输!′);