我曾经做过的,要重写一下Dialogs.pas单元中的InputBox和InputQuery函数,加一个可选参数isPassowrd,并在代码中加入对isPassowrd为真是InputBox中edit控件的passowrdchar设定,以后还可以延用旧的InputBox功能,而要使用*时,可加一个参数为true就可以了
先在代码页中输入InputBox,右键点find declaration就可打开Dialogs了