initwcrt.pas

 {InitWCrt.PAS}
 
 { Пример программы для процедуры InitWinCrt }
 { Компилировать в режиме Windows }
 { Используйте русские фонты в Win32 }
 
 Uses Strings, WinCrt, WinDos;
 
 Begin
  StrCopy(WindowTitle, 'Окно, созданное с помощью InitWinCRT');
  WriteLn('Это окно создано вручную.');
  WriteLn('Посмотрите на заголовок окна !!!');
  InitWinCRT;
 End.