mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 13:48:33 +02:00
24 lines
424 B
ObjectPascal
24 lines
424 B
ObjectPascal
program a;
|
|
{$mode delphi}
|
|
uses
|
|
SysUtils, Classes;
|
|
const
|
|
LockFile = 'lock.txt';
|
|
var
|
|
H, H2 : TStream;
|
|
begin
|
|
try
|
|
H := TFileStream.Create(lockFile, fmCreate);
|
|
{ should raise exception because of exclusive lock above }
|
|
H2 := TFileStream.create(LockFile, fmOpenRead or fmShareDenyNone);
|
|
H2.free;
|
|
H.free;
|
|
DeleteFile(LockFile);
|
|
halt(1);
|
|
except
|
|
H.free;
|
|
DeleteFile(LockFile);
|
|
end
|
|
end.
|
|
|