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