InputBox e InputQuery

[ozsWizzard]

Dos cosillas...

1ª Habiendo una forma fácil de hacer lo de los asterisco, yo no cambiaría los ".pas" de Delphi.

La forma de hacer lo de los asteriscos es esta:

Crear este procedimiento

Código Delphi [-]
procedure InputBoxSetPasswordChar(var Msg: TMessage);
var
  hInputForm, hEdit, hButton: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    {
      // Change button text:
      hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
      SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
    }
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

Y justo antes de la llamada al InputQuery, por ejemplo, poner esta instrucción

Código Delphi [-]
   PostMessage(Handle, InputBoxMessage, 0, 0);

2ª

Si aún así prefieres la modificación, una vez hayas hecho copia de seguridad de los ".pas" originales y sus correspondientes dcu, deberías borrar las dcu de delphi. Su ubicación depende de la instalación y el IDE que tengas. En mi caso, para que te hagas una idea, la ruta es esta

"C:\Program Files\Embarcadero\RAD Studio\9.0\lib\win32\debug"

Saludos