[Overview][Constants][Types][Procedures and functions][Index] |
Create a hard link to a file
Source position: bunxh.inc line 32
function FpLink( |
existing: pChar; |
newone: pChar |
):cint; |
const existing: RawByteString; |
const newone: RawByteString |
):cint; |
fpLink makes NewOne point to the same file as Existing. The two files then have the same inode number. This is known as a 'hard' link. The function returns zero if the call was successful, and returns a non-zero value if the call failed.
The following error codes are returned:
|
Create a symbolic link |
|
|
Unlink (i.e. remove) a file. |
Program Example21; { Program to demonstrate the Link and UnLink functions. } Uses BaseUnix; Var F : Text; S : String; begin Assign (F,'test.txt'); Rewrite (F); Writeln (F,'This is written to test.txt'); Close(f); { new.txt and test.txt are now the same file } if fpLink ('test.txt','new.txt')<>0 then writeln ('Error when linking !'); { Removing test.txt still leaves new.txt } If fpUnlink ('test.txt')<>0 then Writeln ('Error when unlinking !'); Assign (f,'new.txt'); Reset (F); While not EOF(f) do begin Readln(F,S); Writeln ('> ',s); end; Close (f); { Remove new.txt also } If not FPUnlink ('new.txt')<>0 then Writeln ('Error when unlinking !'); end.