Have you ever tried to use the gotoxy or keypress function in your win32 applications ?

Unit Win32_Dos;

Interface

{code used to emulate old dos calls}

Function GetKey: char;
Procedure GotoXY (X, Y: integer);
Function WhereX: integer;
Function WhereY: integer;
Procedure ClrScr;
Procedure SelectCursor (CurOn: boolean);
Procedure ClearLine;
Function KeyWaiting: boolean;

Implementation

Uses
    Windows;

Var
    KeyData: integer = -1;

Function KeyWaiting: boolean;
Var
    InputEvents: DWORD;
    InputEventsRead: DWORD;
    KeyBuf: TInputRecord;
Begin
    If KeyData < 0 Then
        Begin
            GetNumberOfConsoleInputEvents (GetStdHandle (STD_INPUT_HANDLE), InputEvents);
            If InputEvents <> 0 Then
                Begin
                    ReadConsoleInput (GetStdHandle (STD_INPUT_HANDLE), KeyBuf, 1, InputEventsRead);
                    If (KeyBuf.EventType = KEY_EVENT) And (KeyBuf.Event.KeyEvent.bKeyDown) Then
                        Begin
                            KeyData := integer (KeyBuf.Event.KeyEvent.AsciiChar);
                        End;
                End;
        End;
    KeyWaiting := KeyData >= 0;
End;

Function GetKey: char;
Begin
    If KeyData < 0 Then
        While Not (KeyWaiting) Do {nop}
            ;
    If KeyData >= 0 Then
        getkey := char (KeyData)
    Else
        getkey := #255;
    KeyData := -1;
End;

Procedure GotoXY (X, Y: integer);
Var
    Cord: tCoord;
Begin
    Cord.X := x;
    Cord.Y := y;
    SetConsoleCursorPosition (GetStdHandle (STD_OUTPUT_HANDLE), Cord);
End;

Function WhereX: integer;
Var
    Cord: tCoord;
    Info: tConsoleScreenBufferInfo;
Begin
    GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
    result := Info.dwCursorPosition.X;
End;

Function WhereY: integer;
Var
    Cord: tCoord;
    Info: tConsoleScreenBufferInfo;
Begin
    GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
    result := Info.dwCursorPosition.Y;
End;

Procedure ClrScr;
Var
    Cord: tCoord;
    CharactersWritten: Cardinal;
    Info: tConsoleScreenBufferInfo;
    Size: Cardinal;
Begin
    Cord.X := 0;
    Cord.Y := 0;
    GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
    Size := succ (Info.dwSize.X) * succ (Info.dwSize.Y);
    FillConsoleOutputCharacter (GetStdHandle (STD_OUTPUT_HANDLE), ' ', Size, Cord, CharactersWritten);
End;

Procedure SelectCursor (CurOn: boolean);
Var
    Info: tConsoleCursorInfo;
Begin
    GetConsoleCursorInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
    If CurOn Then
        Info.bVisible := true
    Else
        Info.bVisible := false;
    SetConsoleCursorInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
End;

Procedure ClearLine;
Var
    i: integer;
    Info: tConsoleScreenBufferInfo;
Begin
    SelectCursor (FALSE);
    GetConsoleScreenBufferInfo (GetStdHandle (STD_OUTPUT_HANDLE), Info);
    GotoXY (0, WhereY);
    For i := 0 To Info.dwSize.X - 2 Do
        Write (' ');
    GotoXY (0, WhereY);
    SelectCursor (TRUE);
End;

End.