Клавиатура в графическом режиме

[Ky_]

Пишу программу для Free Pascal под win32.
Когда инициализируешь графический режим с помощью initgraph, создается новое окно, а весь ввод с клавиатуры остается в старом - консольном. В результате, работать с клавиатурой не получается. Простенький пример:

Код: Выделить всё

uses graph, crt;

var driver, mode : integer;

begin
        driver := vga;
        mode := 2;

        initgraph(driver, mode, '');

        repeat
                setcolor(random(15));
                moveto(random(400),random(400));
                lineto(random(400),random(400));
        until keypressed;

        closegraph;
end.


Программа завершается только если нажать что-нибудь в консоли. Можно как-нибудь сделать так, чтобы клавиатура работала непосредственно в окне с графикой?

Добавлено спустя 5 минут 58 секунд:
А, сам разобрался уже, спасибо.
Ответ тут: http://community.freepascal.org:10000/faq#win-graph

[informat]

В Windows нужно использовать WinCRT.

[Polinom2686]

У Free Pascal есть специальная директива

{$APPTYPE GUI}

Вставь ее в начале программы, после Program.