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.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //