git_admin/Virtual-File-System
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Virtual-File-System synced 2025-12-19 09:53:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Added more entries to DLL export

Browse Source
This commit is contained in:
Berserker 2019-05-09 17:16:09 +03:00
parent c2c2c83cf6
commit f8304dcd8c
5 changed files with 572 additions and 550 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -2,4 +2,5 @@
*.exe
*.ini
*.identcache
*.map
__history/

4
Tests/VfsControl.pas
View File

@ -13,7 +13,7 @@ uses
(* Runs all VFS subsystems, unless VFS is already running *)
function RunVfs (DirListingOrder: VfsBase.TDirListingSortType): boolean;
function RunVfs (DirListingOrder: VfsBase.TDirListingSortType): boolean; stdcall;
(***) implementation (***)
@ -43,7 +43,7 @@ begin
result := Windows.SetCurrentDirectoryW(PWideChar(AbsPath));
end;
function RunVfs (DirListingOrder: VfsBase.TDirListingSortType): boolean;
function RunVfs (DirListingOrder: VfsBase.TDirListingSortType): boolean; stdcall;
var
CurrDir: WideString;

8
VfsBase.pas
View File

@ -93,10 +93,10 @@ function GetThreadVfsDisabler: TThreadVfsDisabler;
function RunVfs (DirListingOrder: TDirListingSortType): boolean;
(* Temporarily pauses VFS, but does not reset existing mappings *)
function PauseVfs: boolean;
function PauseVfs: boolean; stdcall;
(* Stops VFS and clears all mappings *)
function ResetVfs: boolean;
function ResetVfs: boolean; stdcall;
(* Returns true if VFS is active globally and for current thread *)
function IsVfsActive: boolean;
@ -300,7 +300,7 @@ begin
end; // .if
end; // .function RunVfs
function PauseVfs: boolean;
function PauseVfs: boolean; stdcall;
begin
result := not DisableVfsForThisThread;
@ -313,7 +313,7 @@ begin
end;
end;
function ResetVfs: boolean;
function ResetVfs: boolean; stdcall;
begin
result := not DisableVfsForThisThread;

16
VfsExport.pas
View File

@ -7,14 +7,26 @@ unit VfsExport;
(***) interface (***)
uses
VfsDebug;
VfsDebug, VfsBase, VfsControl;
exports
VfsDebug.SetLoggingProc,
VfsDebug.WriteLog_ name 'WriteLog',
VfsDebug.SetLoggingProc;
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.

1093
VfsTest.map
View File

File diff suppressed because it is too large Load Diff