Eingabe in der Konsole verbergen

[Luckie]

Ich habe ein Konsolen-Programm bei dem ich ein passwort eingeben muss. Nun wäre es schön, wenn entweder statt des Passwortes Sternchen erscheinen würden oder gar nichts, wie bei runas.

Hat da jemand eine Idee?

[Ultimator]

Hmmm, du könntest, wenn eine Taste gedrückt wurde, diese in eine Char-Variable speichern. Nun kannst du die gedrückte Taste auf #0 oder was du magst. Und dann alle Char-Variablen zu einem String zusammenfassen.

[Dax]

Eine Möglichkeit wäre, jedes Zeichen an der entsprechenden Stelle in einem String zu speichern, aber ein * zu schreiben.

[OrallY]

Hi,

Naja, auch wenn man die Eingabe zuerst inner Variable speichert, wird sie trotzdem im Fenster angezeigt, oder?
Spontan würde mir ein LowLevel-Keyboardhook, der die Daten nicht weitergibt, einfallen. Aber ob das so sauber ist...

greez

[Luckie]

Nun ja. Man liest ja von der Konsole über readln ein und das greift erst, wenn Return gedrückt wurde, nur dann ist es shcon zu spät, dann steht es ja schon da. Und einzelne tastendrücke abzufangen ist wohl nicht so einfach möglich.

[Dax]

In TP gab's doch die Funktion KeyPressed, die man dann mit Read verwenden konnte.. AFAIR gibts in den CRT-Replacement-Units auch eine KeyPressed-Funktion.

[OrallY]

Wie schon gesagt, mit einem LowLevel-Keyboardhook, der nicht CallNextHook aufruft, gibt die Daten nicht ans System weiter. Das heißt, der Hook müsste eine Nachricht an dein Programm schicken, welche Taste nun gedrückt wurde.

Was an dieser Methode allerdings stört, ist, dass dieser Hook nur ab NT aufwärts funktioniert.

greez

[static_cast]

Hi Luckie,

ich hatte mal diese freie CRT32 im netz gefunden und etwas angepasst damit sie noch mit neueren Delphi versionen funzt. Die sollte dir dabei helfen.

[nailor]

Ich glaub nicht, dass das das ist, was Luckie sucht. *kann aber irren*

[static_cast]

Zitat von nailor:

Ich glaub nicht, dass das das ist, was Luckie sucht. *kann aber irren*

Nein natürlich nicht aber da sind die Funktionen

Delphi-Quellcode:

function KeyPressed: Boolean; 
function ReadKey:Char; 
function ReadVirtualKey:Word;

drin! Und Vllt kann er ja noch mehr von gebrauchen!?