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