Создает окно CRT, если оно еще не было создано.

Объявление:

Procedure InitWinCrt;

Режим:

Windows

Замечание:

Процедура InitWinCrt автоматически вызывается, если вы использовали обращение к процедурам Read, ReadLn, Write или WriteLn для файла, который был назначен к CRT.
InitWinCrt использует константы WindowOrg, WindowSize и ScreenSize, и переменную WindowTitle, чтобы определять характеристики создаваемого окна CRT.

Пример:

{ Пример программы для процедуры InitWinCrt }
{ Компилировать в режиме Windows }
{ Используйте русские фонты в Win32 }

Uses Strings, WinCrt, WinDos;

Begin
 StrCopy(WindowTitle, 'Окно, созданное с помощью InitWinCRT');
 WriteLn('Это окно создано вручную.');
 WriteLn('Посмотрите на заголовок окна !!!');
 InitWinCRT;
End.