GetVerify

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Vrací stav DOSového příznaku ověřování (verify).

Deklarace
procedure GetVerify(var Verify: Boolean);
Režim
Windows, Reálný, Chráněný
Poznámky
GetVerify vrací stav DOSového příznaku ověřování. Když je vypnut (False), zápisy na disk se neověřují. Když je zapnut (True), všechny zápisy na disk se ověřují, aby se zajistila jejich správnost.


Viz také
SetVerify


Vzorový příklad

{GetVerif.PAS}
{Vzorový příklad pro GetVerify a SetVerify.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
 uses Dos;
 const
   OffOn : array [Boolean] of String[3] = ('vypnuto','zapnuto');
 var
   v : Boolean;
 begin
   GetVerify(v);
   WriteLn('Kontrola zápisu : ', OffOn[v]);
   v := not(v);
   WriteLn('Změna stavu kontroly do : ', OffOn[v]);
   SetVerify(v);
 end.