Delphi操作InputBoxSetPasswordChar变成密码框示例源码.rar
对InputBoxSetPasswordChar操作:
procedureTForm1.InputBoxSetPasswordChar(varMsg:TMessage);
var
hInputForm,hEdit:HWND;
begin
hInputForm:=Screen.Forms[0].Handle;
if(hInputForm0)then
begin
hEdit:=FindWindowEx(hInputForm,0,'TEdit',nil);
SendMessage(hEdit,E
下载地址
用户评论