Code: Select all

library SuchFiles;

uses
  SysUtils;

function SuchFile(path : string) : boolean; export;
Begin
result:= FileExists(path);
end;

exports SuchFile;

begin
end.