home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / FILELOCK / FILELOCK.INC
Text File  |  1989-10-11  |  727b  |  25 lines
  1. PROCEDURE MyReset (f: file; recsize: word; share: byte);
  2. { share kan zijn 0,1,2,3 of 4}
  3. VAR reg         : registers;
  4.     dir         : DirStr;
  5.     name        : NameStr;
  6.     ex          : extStr;
  7.     bestandsnaam: string;
  8.  
  9. BEGIN
  10.   {$I-} Close (f) {$I+}; { Om vervelende problemen te voorkomen }
  11.   WITH reg DO BEGIN
  12.     if f = TextFile then AL := 0
  13.     else AL := 2; { testen op TextFile door in record te kijken }
  14.     AL := AL OR (share shl 4);
  15.     FSplit (f.name, dir, name, ext);
  16. { Het moet een ASCIIZ-string zijn,
  17.   i.e. een ASCII-string afgesloten met een 0 }
  18.     bestandsnaam := name + ext + #0;
  19.     DS := Seg (bestandsnaam);
  20.     DX := Ofs (bestandsnaam);
  21.     AH := $3D;
  22.     MsDos (reg)
  23.   END
  24. END;
  25.