BSOD Bug gefunden

[Aphton]

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!