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