mirror of
https://github.com/CloudDelphi/Virtual-File-System
synced 2025-12-19 09:53:54 +01:00
33 lines
539 B
ObjectPascal
33 lines
539 B
ObjectPascal
unit VfsExport;
|
|
(*
|
|
|
|
*)
|
|
|
|
|
|
(***) interface (***)
|
|
|
|
uses
|
|
VfsDebug, VfsBase, VfsControl;
|
|
|
|
exports
|
|
VfsDebug.SetLoggingProc,
|
|
VfsDebug.WriteLog_ name 'WriteLog',
|
|
VfsControl.RunVfs,
|
|
VfsBase.PauseVfs,
|
|
VfsBase.ResetVfs,
|
|
VfsBase.CallWithoutVfs;
|
|
|
|
|
|
(***) implementation (***)
|
|
|
|
|
|
function MapDir (const VirtPath, RealPath: PWideChar; OverwriteExisting: boolean; Flags: integer = 0): boolean; stdcall;
|
|
begin
|
|
result := VfsBase.MapDir(WideString(VirtPath), WideString(RealPath), OverwriteExisting, Flags);
|
|
end;
|
|
|
|
exports
|
|
MapDir;
|
|
|
|
end.
|