Konsolenmodus umschalten geht nicht

[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.