Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 7 / makelock

uses linux;

const
lck = '/tmp/lockfile';


function makelock:integer;
var
fd:integer;
begin
fd := fdopen (lck, Open_RDWR or Open_CREAT or Open_EXCL, octal(0600));

if fd < 0 then
begin
if linuxerror = SYS_EEXIST then
halt (1) (* ЖБКМ ЪБОСФ ДТХЗЙН РТПГЕУУПН *)
else
halt (127); (* ОЕЙЪЧЕУФОБС ПЫЙВЛБ *)
end;

(* жБКМ ВМПЛЙТПЧЛЙ УПЪДБО, ЧЩИПД ЙЪ РТПГЕДХТЩ *)
fdclose (fd);
makelock:=0;
end;


begin
makelock;
end.