我正在使用BDE 2006编写一个控制台应用程序,我希望它能够提示输入密码字符串,并在用户输入时用“*”掩盖它.我环顾四周,但找不到如何做到这一点的例子.我看到的一切都是如何在TEdit中做到这一点.关于如何实现这一点的任何指针?
提前致谢,
尼克
解决方法
这是一个有效的解决方案:
program Project2; {$APPTYPE CONSOLE} uses SysUtils,Windows; function getpassword(const InputMask: Char = '*'): string; var OldMode: Cardinal; c: char; begin GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),OldMode); SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),OldMode and not (ENABLE_LINE_INPUT or ENABLE_ECHO_INPUT)); try while not Eof do begin Read(c); if c = #13 then // Carriage Return Break; Result := Result + c; if c = #8 then // Back Space Write(#8) else Write(InputMask); end; finally SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),OldMode); end; end; begin try Writeln(Format(sLineBreak + 'pswd=%s',[getpassword])); Readln; except on E: Exception do Writeln(E.ClassName,': ',E.Message); end; end.
更新:请注意,上面的代码在视觉上处理BackSpaces,但将它们嵌入密码中,这可能不是您想要的.
在这种情况下,以下代码将过滤掉它们:
if c = #13 then // Carriage Return Break; if (c = #8) and (Length(Result) > 0) then // Back Space begin Delete(Result,Length(Result),1); Write(#8); end else begin Result := Result + c; Write(InputMask); end;
原文地址:https://www.jb51.cc/delphi/102311.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。