Algo acerca de Consale Application

[Ledian_Fdez]

Hola amigos me mandaron hacer una aplicación en Consola, utilizo Delphi7. Jamás en mi vida he programado en consola, pero así es la vida.


Mis preguntas son las siguientes:


1-¿Cómo puedo limpiar toda la pantalla, luego de haber escrito en ella?
2-¿Cómo hacer para que cuando pida la contraseña, al escribirla el usuario vea * y no lo que se teclea?



Gracias por prestarme su tiempo

Salu2
Ledian

[[seoane]]

En las aplicaciones de consola, para introducir una contraseña se suelen ocultar los caracteres que se introducen por teclado.

Algo así:

Código Delphi [-]
function ReadPass(Prompt: String): String;
var
  Mode: DWORD;
begin
  Result:= EmptyStr;
  Write(Prompt);
  if GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode) then
  try
    if SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),
      Mode and not ENABLE_ECHO_INPUT) then
        Readln(Result);
  finally
    SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode);
  end;
  Writeln;
end;

Por ejemplo:

Código Delphi [-]
var
  Password: String;
begin
  Password:= ReadPass('Password: ');
end;

[Ledian_Fdez]

Muchas Gracias seoane, pues me viene como anillo al dedo.

Ahora solo me queda saber ¿Cómo puedo limpiar toda la pantalla, luego de haber escrito en ella? Como en el prompt de MS-DOS que ponemos CLS y limpia toda la pantalla.

Salu2
Ledian

[Paoti]

de dodne sacaste eso Seoane

orale, que bien!!!

[paldave]

Prueba con FillConsoleOutputCharacter.