Ja ich hab ursprünglich auch den Quellcode gepostet aber nach kurzer Überlegung dachte ich mir, dass das nicht so ne kluge Entscheidung war.
Ach was solls, ist ja nicht mein Problem:
Kernstück
Delphi-Quellcode:
var
h1, h2, b: DWord;
h1 := GetStdHandle(STD_INPUT_HANDLE);
h2 := CreateConsoleScreenBuffer(GENERIC_WRITE, FILE_SHARE_READ, NIL, CONSOLE_TEXTMODE_BUFFER, NIL);
repeat
SetConsoleActiveScreenBuffer(h2);
ReadConsole(h1, NIL, 0, b, NIL);
until BSOD...;
Die Echse ist das Kompilat vom Anhang! Sie automatisiert einfach den Programmfluss - man muss nicht mehr selber etwas eingeben!