[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Create a hard link to a file
Source position: oldlinux.pp line 1389
function Link( |
OldPath: PathStr; |
NewPath: PathStr |
):Boolean; |
Link makes NewPath point to the same file als OldPath. The two files then have the same inode number. This is known as a 'hard' link. The function returns True if the call was succesfull, False if the call failed.
Errors are returned in LinuxError.
|
Create a symbolic link |
|
|
Unlink (i.e. remove) a file. |
Program Example21; { Program to demonstrate the Link and UnLink functions. } Uses oldlinux; 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 not Link ('test.txt','new.txt') then writeln ('Error when linking !'); { Removing test.txt still leaves new.txt } If not Unlink ('test.txt') 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 Unlink ('new.txt') then Writeln ('Error when unlinking !'); end.
lazarus-ccr.sourceforge.net |