diff --git a/Dokan.pas b/Dokan.pas
index 2558613..ed75842 100644
--- 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
index a35e94e..448a1bc 100644
--- 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
index 9854cda..ceb715c 100644
--- 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
index 6610fc8..2316666 100644
--- a/Samples/Mirror/Mirror.dproj
+++ b/Samples/Mirror/Mirror.dproj
@@ -8,7 +8,7 @@
Console
None
20.1
- Win64
+ Win32
true