fixed error with dynamic library #13

dokan-dev · Jan 23, 2024 · b8acdc9 · b8acdc9
1 parent dded3cd
commit b8acdc9
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 16 deletions.
diff --git a/Dokan.pas b/Dokan.pas
@@ -1,7 +1,7 @@
 (*
-  Dokan API wrapper for Delphi based on Release 2.0.5.1000
-  https://github.com/dokan-dev/dokany/releases/tag/v2.0.5.1000
-  Copyright (C) 2019 - 2023 Sven Harazim
+  Dokan API wrapper for Delphi based on Release 2.0.6.1000
+  https://github.com/dokan-dev/dokany/releases/tag/v2.0.6.1000
+  Copyright (C) 2019 - 2024 Sven Harazim
 
   Dokan : user-mode file system library for Windows
 
@@ -406,8 +406,8 @@   _DOKAN_MOUNT_POINT_INFO = record
   DokanLibHandle: HMODULE = 0;
   DokanInit: procedure; stdcall = nil;
   DokanShutdown: procedure; stdcall = nil;
-  DokanMain: function (Options: DOKAN_OPTIONS; Operations: DOKAN_OPERATIONS): Integer; stdcall = nil;
-  DokanCreateFileSystem: function (DokanOptions : DOKAN_OPTIONS; DokanOperations : DOKAN_OPERATIONS; var DokanInstance : DOKAN_HANDLE) : Integer; stdcall = nil;
+  DokanMain: function (Options: PDOKAN_OPTIONS; Operations: PDOKAN_OPERATIONS): Integer; stdcall = nil;
+  DokanCreateFileSystem: function (DokanOptions : PDOKAN_OPTIONS; DokanOperations : PDOKAN_OPERATIONS; var DokanInstance : DOKAN_HANDLE) : Integer; stdcall = nil;
   DokanIsFileSystemRunning: function (DokanInstance : DOKAN_HANDLE) : BOOL; stdcall = nil;
   DokanWaitForFileSystemClosed: function (DokanInstance : DOKAN_HANDLE; dwMilliseconds : DWORD) : DWORD; stdcall = nil;
   DokanCloseHandle: procedure (DokanInstance : DOKAN_HANDLE); stdcall = nil;
@@ -423,11 +423,11 @@   _DOKAN_MOUNT_POINT_INFO = record
   DokanMapKernelToUserCreateFileFlags: procedure (DesiredAccess: ACCESS_MASK; FileAttributes, CreateOptions,
     CreateDisposition: ULONG;outDesiredAccess: PACCESS_MASK; outFileAttributesAndFlags,
     outCreationDisposition: PDWORD); stdcall = nil;
-  DokanNotifyCreate: function (FilePath: LPCWSTR; IsDirectory : BOOL) : BOOL; stdcall = nil;
+  DokanNotifyCreate: function (DokanInstance : DOKAN_HANDLE; FilePath: LPCWSTR; IsDirectory : BOOL) : BOOL; stdcall = nil;
   DokanNotifyDelete: function (DokanInstance : DOKAN_HANDLE; FilePath : LPCWSTR; IsDirectory : BOOL) : BOOL; stdcall = nil;
-  DokanNotifyUpdate: function (FilePath : LPCWSTR) : BOOL; stdcall = nil;
-  DokanNotifyXAttrUpdate: function (FilePath : LPCWSTR) : BOOL; stdcall = nil;
-  DokanNotifyRename: function (OldPath: LPCWSTR; NewPath : LPCWSTR; IsDirectory : BOOL;
+  DokanNotifyUpdate: function (DokanInstance : DOKAN_HANDLE; FilePath : LPCWSTR) : BOOL; stdcall = nil;
+  DokanNotifyXAttrUpdate: function (DokanInstance : DOKAN_HANDLE; FilePath : LPCWSTR) : BOOL; stdcall = nil;
+  DokanNotifyRename: function (DokanInstance : DOKAN_HANDLE; OldPath: LPCWSTR; NewPath : LPCWSTR; IsDirectory : BOOL;
     IsInSameDirectory: BOOL) : BOOL; stdcall = nil;
   DokanNtStatusFromWin32: function (Error: DWORD): NTSTATUS; stdcall = nil;
 

diff --git a/DokanWin.pas b/DokanWin.pas
@@ -1,7 +1,7 @@
 (*
-  Dokan API wrapper for Delphi based on Release 2.0.5.1000
-  https://github.com/dokan-dev/dokany/releases/tag/v2.0.5.1000
-  Copyright (C) 2019 - 2023 Sven Harazim
+  Dokan API wrapper for Delphi based on Release 2.0.6.1000
+  https://github.com/dokan-dev/dokany/releases/tag/v2.0.6.1000
+  Copyright (C) 2019 - 2024 Sven Harazim
 
   Dokan : user-mode file system library for Windows
 

diff --git a/Samples/Mirror/Mirror.dpr b/Samples/Mirror/Mirror.dpr
@@ -1,7 +1,7 @@
 (*
-  Dokan API wrapper for Delphi based on Release 2.0.5.1000
-  https://github.com/dokan-dev/dokany/releases/tag/v2.0.5.1000
-  Copyright (C) 2019 - 2023 Sven Harazim
+  Dokan API wrapper for Delphi based on Release 2.0.6.1000
+  https://github.com/dokan-dev/dokany/releases/tag/v2.0.6.1000
+  Copyright (C) 2019 - 2024 Sven Harazim
 
   Dokan : user-mode file system library for Windows
 
@@ -1894,9 +1894,11 @@ begin
   dokanOperations.FindStreams := MirrorFindStreams;
   dokanOperations.Mounted := MirrorMounted;
 
+  //if defined Dokan.pas DOKAN_EXPLICIT_LINK then call DokanLoad;
   DokanInit;
   status := DokanMain(@dokanOptions, @dokanOperations);
   DokanShutdown;
+  //if defined Dokan.pas DOKAN_EXPLICIT_LINK then call DokanFree
   case (status) of
     DOKAN_SUCCESS:
       Writeln(ErrOutput, 'Success');

diff --git a/Samples/Mirror/Mirror.dproj b/Samples/Mirror/Mirror.dproj
@@ -8,7 +8,7 @@
         <AppType>Console</AppType>
         <FrameworkType>None</FrameworkType>
         <ProjectVersion>20.1</ProjectVersion>
-        <Platform Condition="'$(Platform)'==''">Win64</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>