Создает окно 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.