Code: Select all
library SuchFiles;
uses
SysUtils;
function SuchFile(path : string) : boolean; export;
Begin
result:= FileExists(path);
end;
exports SuchFile;
begin
end.
сваял библиотеку, но хотелось бы какого-то более простого решения.
Code: Select all
library SuchFiles;
uses
SysUtils;
function SuchFile(path : string) : boolean; export;
Begin
result:= FileExists(path);
end;
exports SuchFile;
begin
end.