Konsolenmodus umschalten geht nicht

[Luckie]

Ich habe hier ein Konsolenprogramm, welches eine Passworteingabe erfordert. Jetzt wollte ich mit der Funktion SetConsoleMode den Konsolenmodus auf ENABLE_ECHO_INPUT setzten. Nur leider scheint das irgendwie nicht zu gehen:

Delphi-Quellcode:

  Write('s: ');
  hConsole := GetStdHandle(STD_INPUT_HANDLE);
  GetConsoleMode(hConsole, ConsoleMode);
  SetConsoleMode(hConsole, ENABLE_ECHO_INPUT);
  writeln(SysErrorMessage(GetLastError));
  Readln(s);
  Writeln(s);
  Readln;

Als Fehlermeldung bekomme ich "falscher Parameter" und zwar nach SetConsoleMode(hConsole, ENABLE_ECHO_INPUT);.

[toms]

Hallo!

Vielleicht hilft dir das

[Luckie]

Hm, mal sehen.

[Luckie]

Jupp, so geht es:

Delphi-Quellcode:

    Write(rsPW);
    hConsole := GetStdHandle(STD_INPUT_HANDLE);
    GetConsoleMode(hConsole, ConsoleMode);
    SetConsoleMode(hConsole, ConsoleMode and not ENABLE_ECHO_INPUT);
    ReadLn(PW);
    SetConsoleMode(hConsole, ConsoleMode or ENABLE_ECHO_INPUT);

Dank dir noch mal.