IPB

> GetVerify.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {GetVerify.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetVerify and SetVerify procedures.}

  uses WinDos,WinCrt;

  const
    OffOn : array [Boolean] of String[3] =
      ('off','on');
  var
    v : Boolean;
  begin
    GetVerify(v);
    Writeln('Write verify is ', OffOn[v]);
    v := not(v);
    Writeln('Turning write verify ',
            OffOn[v]);
    SetVerify(v);
  end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"