WriteConsoleOutput

[shmia]

Delphi-Quellcode:

CH:=CreateConsoleScreenBuffer(GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, p, CONSOLE_TEXTMODE_BUFFER, nil); 
if CH = INVALID_HANDLE_VALUE then  // Handle immer überprüfen
   RaiseLastWin32Error;
if not SetConsoleActiveScreenBuffer(CH) then   // vergessen den ScreenBuffer zu aktivieren ???
   RaiseLastWin32Error;