Consolen-Anwendung und deren Cursorgrösse

[turboPASCAL]

Thx. Ja, das hat geholfen. Es ist doch immer schön, wenn man weis wo nach man suchen soll.

Delphi-Quellcode:

program TestProject;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  hConsoleOutput, hConsoleInput: THandle;

procedure SetCursor(const CursorSize: Word);
// CursorSize 1..100
var
  CCI: TConsoleCursorInfo;
begin
  CCI.dwSize := CursorSize;
  CCI.bVisible := True;
  SetConsoleCursorInfo(hConsoleOutput, CCI);
end;

begin
  hConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  SetCursor(100); // VollBlockCursor
  readln;
end.