捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们
		粤ICP备10103342号-1	DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索
			精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言

盒子资源分类 全部展开 - 全部合拢

实现Delphi Console(控制台程序)密码的*号显示 关键字：Delphi Console 控制台 密码 来　自：原创 平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴 深浅度：初级 完成时间：2010/3/24 发布者：zbzb 发布时间：2010/3/27 编辑器：DELPHI7 语　　种：简体中文 分　类：杂项 下载浏览：682/8621 加入到我的收藏 下载错误报错 登陆以后才能下载  用户名：  密　码： 自动登陆(30天有效)     一直没找到更好的方法，网上找到的是实现密码输入时隐藏的（就是没有实时显示），自己折腾了一段小程序，写成一个函数实现Delphi Console(控制台程序)密码的*号显示，包含例子。其实自己也是瞎折腾的，感觉也不是很好。 输入您的搜索字词 提交搜索表单   Web www.2ccc.com 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ 龙脉加密锁 15元起 Grid++Report 报表 申请支付@网 　相关文章 没有相关文章 相关评论 共有评论5条 当前显示最后5条评论 zbzb 2010/3/27 11:31:32 发现不会接受空格符，按如下修改一下即可接受空格： var   AChr: Char; …… 把原来的这两行：       APass:=APass+Trim(InBuf.Event.KeyEvent.AsciiChar);       if Length(Trim(InBuf.Event.KeyEvent.AsciiChar))>0 then Write(PwdChar); 改为：       AChr:=InBuf.Event.KeyEvent.AsciiChar;       if (AChr=' ')or(Trim(AChr)<>'') then       begin         APass:=APass+AChr;         Write(PwdChar);       end; 即可。 swgame 2010/3/28 20:18:46 谢谢。 把TRIM去掉就会有空格了。 APass:=APass+(InBuf.Event.KeyEvent.AsciiChar); if Length((InBuf.Event.KeyEvent.AsciiChar))>0 then Write(PwdChar); zbzb 2010/3/28 23:26:25 TO: swgame 你这样的话，一些非常规字符也会被接受，比如tab键。 hchdown 2010/4/7 9:44:45 很不错，谢谢了 hchdown 2010/4/7 9:46:39 xiex  hen b cuo l 我要发表评论 查看全部评论

		DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1