我正在使用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;