Taste einlesen in Konsole - aber wie???

[DracoBlue]

(uralt thread rauskrammt, falls es doch nochmal jeamnd brauch.)

Von hier geklaut :
http://www.delphipraxis.net/internal...=160214#160214

Delphi-Quellcode:

function ReadKey: Char;
var
  InputBuf: Char;
  NumRead: DWord;
begin
  InputBuf := #0;
  If ReadConsole(GetStdhandle(STD_INPUT_HANDLE), @InputBuf, 1, NumRead, nil) then
    Result := InputBuf
  else
  begin
    WriteLn(Format('ReadConsole failed, reason: %s',
                   [SysErrorMessage(GetLastError)]));
    Result := #0;
  end;
end;