用注册表对delphi程序加密

　　KeyName,ValueStr,tempStr:String;

　　procedure TfrmPass.FormShow(Sender: TObject);

　　begin

　　TheReg := TRegistry.Create;

　　try TheReg.RootKey := HKEY—LOCAL—MACHINE;

　　KeyName := ′SOFTWARE\Mypassword′;

　　//有该键则打开，没有则创建

　　if TheReg.OpenKey(KeyName, True) then begin

　　tempStr:=ExtractFileName(Application.ExeName); //读取密码

　　ValueStr:=TheReg.ReadString(tempStr);

　　//密码不为空则修改窗体为验证密码

　　if ValueStr<>′′ then begin

　　edit2.Visible:=false; frmPass.Caption:=′验证密码′;

　　edit1.SetFocus; OK.Caption:=′确定′; end

　　//密码为空则修改窗体为设置密码对话框

　　else begin

　　showmessage(′第一次使用请设置密码!′);