Marshalling

 









  1. Option Strict On
  2. Imports System.Runtime.InteropServices

  4. Module Program
  5.     Declare Unicode Sub BeginTest Lib ".\..\..\..\..\..\x64\Debug\Dll_ForMarshalling.dll" (
  6.                    str As String, FunSelector As Int32)
  7.     Declare Unicode Sub Get_TestData Lib ".\..\..\..\..\..\x64\Debug\Dll_ForMarshalling.dll" (
  8.        <InAttribute(), OutAttribute(), MarshalAs(UnmanagedType.LPWStr)> ByRef str As Text.StringBuilder, nMAxCount As Int32)
  9.     Sub Main(args As String())
  10.         For ii As Int32 = 1 To 1

  12.             Known_Folder_Desktop()
  13.             If (ii <= 1) Then Console.ReadKey()

  15.             Dim stringbuilder As New Text.StringBuilder(4 << 20)
  16.             BeginTest(" Desktop ", 1)
  17.             Get_TestData(stringbuilder, stringbuilder.Capacity)
  18.             OUTPUT2(stringbuilder.ToString)
  19.             If (ii <= 1) Then Console.ReadKey()

  21.             Console.WriteLine("=== KnownFolderManager ===")
  22.             KnownFolderManager()
  23.             Console.WriteLine("=== KnownFolderManager ====")
  24.             If (ii <= 1) Then Console.ReadKey()

  26.             Dim stringbuilder2 As New Text.StringBuilder(4 << 20)
  27.             BeginTest(" KnownFolder_Manager ", 2)
  28.             Get_TestData(stringbuilder2, stringbuilder2.Capacity)
  29.             OUTPUT2(stringbuilder2.ToString)
  30.             If (ii <= 1) Then Console.ReadKey()
  31.         Next ii

  33.         Console.Write("Press any key to exit") : Console.ReadKey()
  34.     End Sub
  35.     Public ReadOnly FolderId_Desktop_guid As New Guid(FolderId_Desktop)
  36.     Sub Known_Folder_Desktop()
  37.         Try
  38.             Dim Hresult As Int32
  39.             Hresult = SHGetKnownFolderPath(FolderId_Desktop_guid,
  40.                       0, Null,
  41.                       KnownFolderPath)
  42.             If Hresult <> S_OK Then
  43.                 OUTPUT2($"error: SHGetKnownFolderPath == {FolderId_Desktop_guid} {Hresult:X} ")
  44.             Else
  45.                 OUTPUT2("SHGetKnownFolderPath ==> " & KnownFolderPath)
  46.             End If
  47.             Dim ptr_IDList As IntPtr
  48.             Hresult = SHGetKnownFolderIDList(FolderId_Desktop_guid,
  49.                       0, Null,
  50.                       ptr_IDList)
  51.             If Hresult <> S_OK Then
  52.                 OUTPUT2($"error1: SHGetKnownFolderIDList  {Hresult:x}")
  53.             Else
  54.                 Hresult = SHGetNameFromIDList(ptr_IDList, SIGDN.SIGDN_URL, URL_Path)
  55.                 If Hresult <> S_OK Then
  56.                     OUTPUT2($"error2: SHGetNameFromIDList {Hresult:x}")
  57.                 Else
  58.                     ILFree(ptr_IDList)
  59.                     OUTPUT2("URL_Path ======> " & URL_Path)
  60.                 End If
  61.             End If
  62.             Hresult = SHGetKnownFolderItem(FolderId_Desktop_guid, 0, Null,
  63.                        New Guid(IID_IShellItem), pIShellItem_Obj)
  64.             Dim pIShellItem As IShellItem = CType(pIShellItem_Obj, IShellItem)

  66.             pIShellItem.GetDisplayName(SIGDN.SIGDN_NORMALDISPLAY, pName_NormalDisplay)
  67.             pIShellItem.GetDisplayName(SIGDN.SIGDN_FILESYSPATH, pName_FileSysPATH)
  68.             OUTPUT2($"Name  : {pName_NormalDisplay}")
  69.             OUTPUT2($"Name  : {pName_FileSysPATH}")

  71.             Dim pIShellItem2 As IShellItem2 = CType(pIShellItem, IShellItem2)
  72.             pIShellItem2.GetDisplayName(SIGDN.SIGDN_NORMALDISPLAY, pName2_NormalDisplay)
  73.             pIShellItem2.GetDisplayName(SIGDN.SIGDN_FILESYSPATH, pName2_FileSysPATH)
  74.             OUTPUT2($"Name2 : {pName2_NormalDisplay}")
  75.             OUTPUT2($"Name2 : {pName2_FileSysPATH}")
  76.         Catch ex As Exception
  77.             Console.WriteLine($"Exception:{ex.Message}(hr={ex.HResult:x})")
  78.             Console.Beep() : Console.ReadKey()
  79.         End Try
  80.     End Sub
  81.     Sub KnownFolderManager()
  82.         Dim CLSCTX_INPROC_SERVER As UInt32 = &H1
  83.         Dim pIUnknown As IUnKnown = Nothing
  84.         Dim pManager As IKnownFolderManager = Nothing
  85.         Dim hr As Int32 = CoCreateInstance(New Guid(CLSID_KnownFolderManager), Null,
  86.             CLSCTX_INPROC_SERVER, New Guid(IID_IKnownFolderManager),
  87.             pIUnknown)
  88.         If hr = S_OK Then
  89.             pManager = CType(pIUnknown, IKnownFolderManager)
  90.             Dim CountOfFolderIds As UInteger = 0
  91.             Dim ptr_kfids As IntPtr
  92.             pManager.GetFolderIds(ptr_kfids, CountOfFolderIds)
  93.             For ii As Int32 = 0 To CInt(CountOfFolderIds - 1)
  94.                 Dim pIKnownFolder_obj As Object = Nothing
  95.                 Dim pIKnownFolder As IKnownFolder
  96.                 Dim pIShellItem_Obj As Object = Nothing
  97.                 Dim pIShellItem As IShellItem
  98.                 Try
  99.                     Dim KnownFolderId As Guid = Marshal.PtrToStructure(Of Guid)(
  100.                         ptr_kfids + (ii * Marshal.SizeOf(Of Guid)()))
  101.                     pManager.GetFolder(KnownFolderId, pIKnownFolder_obj)
  102.                     pIKnownFolder = CType(pIKnownFolder_obj, IKnownFolder)
  103.                     Console.Write("{0,3:d}:", ii + 1)

  105.                     pIKnownFolder.GetShellItem(0, New Guid(IID_IShellItem), pIShellItem_Obj)
  106.                     pIShellItem = CType(pIShellItem_Obj, IShellItem)
  107.                     Dim pwstr As String = Nothing
  108.                     pIShellItem.GetDisplayName(SIGDN.SIGDN_NORMALDISPLAY, pwstr)
  109.                     If pwstr IsNot Nothing Then
  110.                         Console.Write("{0} ===>", pwstr)
  111.                     End If
  112.                     Dim pwstr2 As String = Nothing
  113.                     pIShellItem.GetDisplayName(SIGDN.SIGDN_FILESYSPATH, pwstr2)
  114.                     Console.Write("  {0:123,S}", pwstr2)
  115.                 Catch ex As Exception
  116.                     'Console.Write(ex.HResult.ToString("x") & "  " & ex.Message)
  117.                 End Try
  118.                 Console.WriteLine()
  119.             Next ii
  120.             CoTaskMemFree(ptr_kfids)
  121.         End If
  122.     End Sub
  123.     Sub OUTPUT2(str As String)
  124.         Console.WriteLine("{0}", str)
  125.     End Sub
  126.     Dim pIShellItem_Obj As Object
  127.     Dim pIShellItem2_Obj As Object
  128.     Dim URL_Path As String
  129.     Dim KnownFolderPath As String
  130.     Dim pName_NormalDisplay As String
  131.     Dim pName_FileSysPATH As String
  132.     Dim pName2_NormalDisplay As String
  133.     Dim pName2_FileSysPATH As String

  135.     Declare Unicode Function SHGetKnownFolderItem Lib "Shell32" (
  136.        <InAttribute(), MarshalAs(UnmanagedType.LPStruct)> REF_KNOWN_FOLDER_ID As Guid,
  137.         _In_KNOWN_FOLDER_FLAG_flags As UInt32,
  138.         _In_opt_HANDLE_hToken As IntPtr,
  139.        <MarshalAs(UnmanagedType.LPStruct)> REF_IID_riid As Guid,
  140.        <Out(), MarshalAs(UnmanagedType.Interface)> ByRef _Outptr_void_ppv As Object) As Int32

  142.     Declare Unicode Function SHGetKnownFolderIDList Lib "Shell32.dll" (
  143.      <MarshalAs(UnmanagedType.LPStruct)> REF_KNOWN_FOLDER_ID_As_Guid As Guid,
  144.       KNOWN_FOLDER_FLAG As UInt32,
  145.       In_opt_hToken As IntPtr,
  146.      <Out()> ByRef ABSOLUTE_ppidl As IntPtr) As Int32

  148.     Declare Unicode Function SHGetNameFromIDList Lib "Shell32.dll" (
  149.          In_PCIDLIST_ABSOLUTE_pidl As IntPtr,
  150.          _In_SIGDN As SIGDN,
  151.       <Out()> ByRef _Outptr_PWSTR_ppszName As String) As Int32

  153.     Declare Unicode Function SHGetKnownFolderPath Lib "Shell32.dll" (
  154.         <MarshalAs(UnmanagedType.LPStruct)> REF_KNOWN_FOLDER_ID_As_Guid As Guid,
  155.         KNOWN_FOLDER_FLAG As UInt32,
  156.         In_opt_hToken As IntPtr,
  157.       <Out> ByRef Outptr_ppszPath As String) As Int32

  159.     Declare Unicode Function GetConsoleCP Lib "Kernel32.dll" () As UInt32
  160.     Declare Sub CoTaskMemFree Lib "Ole32" (_Frees_ptr_opt_LPVOID_pv As IntPtr)
  161.     Declare Sub ILFree Lib "shell32" (_In_opt_PIDLIST_RELATIVE_pidl As IntPtr)
  162.     Declare Unicode Function CoInitializeEx Lib "Ole32" (
  163.                _In_opt_LPVOID_pvReserved As IntPtr,
  164.                _In_DWORD_dwCoInit As UInt32) As Int32
  165.     Declare Sub CoUninitialize Lib "Ole32" ()
  166.     Declare Function OleInitialize Lib "Ole32" (In_LPVOID_pvReserved As IntPtr) As Int32
  167.     Declare Sub OleUninitialize Lib "Ole32" ()
  168.     Declare Unicode Function CoCreateInstance Lib "Ole32" (
  169.       <MarshalAs(UnmanagedType.LPStruct)> _In_REFCLSID_rclsid As Guid,
  170.                                           _In_opt_LPUNKNOWN_pUnkOuter As IntPtr,
  171.                                           _In_DWORD_dwClsContext As UInt32,
  172.       <MarshalAs(UnmanagedType.LPStruct)> _In_REFIID_riid As Guid,
  173.       <Out, MarshalAs(UnmanagedType.Interface)> ByRef COM_Outptr As IUnKnown) As Int32
  174.     '_Check_return_ WINOLEAPI CoCreateInstance(
  175.     '_In_ REFCLSID rclsid,
  176.     '_In_opt_ LPUNKNOWN pUnkOuter,
  177.     '_In_ DWORD dwClsContext,
  178.     '_In_ REFIID riid,
  179.     '_COM_Outptr_ _At_(* ppv, _Post_readable_size_(_Inexpressible_(varies))) LPVOID  FAR * ppv);

  181.     Public Const IID_IUnknown As String = "00000000-0000-0000-C000-000000000046"
  182.     <ComImport,
  183.      InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
  184.      Guid(IID_IUnknown)>
  185.     Public Interface IUnKnown
  186.         Sub QueryInterface(
  187.             ByRef REFIID_riid As Guid,
  188.             <Out, MarshalAs(UnmanagedType.Interface)> ByRef COM_Outptr_ As Object)
  189.         Function AddRef() As UInt32
  190.         Function Release() As UInt32
  191.     End Interface

  193.     Public Const IID_IShellItem As String = "43826d1e-e718-42ee-bc55-a1e261c37bfe"
  194.     <ComImport,
  195.      Guid(IID_IShellItem),
  196.      InterfaceType(ComInterfaceType.InterfaceIsIUnknown)
  197.      >
  198.     Public Interface IShellItem : Inherits IUnKnown
  199.         Sub BindToHandler()
  200.         ' virtual HRESULT STDMETHODCALLTYPE BindToHandler( 
  201.         '  /* [unique][in] */ __RPC__in_opt IBindCtx *pbc,
  202.         '  /* [in] */ __RPC__in REFGUID bhid,
  203.         '  /* [in] */ __RPC__in REFIID riid,
  204.         '  /* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  205.         Sub GetParent()
  206.         ' virtual HRESULT STDMETHODCALLTYPE GetParent( 
  207.         ' /* [out] */ __RPC__deref_out_opt IShellItem **ppsi) = 0;
  208.         Sub GetDisplayName(sigdn As SIGDN,
  209.             <MarshalAs(UnmanagedType.LPWStr)> ByRef ppszName As String)
  210.         ' virtual HRESULT STDMETHODCALLTYPE GetDisplayName( 
  211.         '   /* [in] */ SIGDN sigdnName,
  212.         '   /* [annotation][string][out] */ 
  213.         '   _Outptr_result_nullonfailure_  LPWSTR *ppszName) = 0;
  214.         Sub GetAttributes()
  215.         '   virtual HRESULT STDMETHODCALLTYPE GetAttributes( 
  216.         '   /* [in] */ SFGAOF sfgaoMask,
  217.         '   /* [out] */ __RPC__out SFGAOF *psfgaoAttribs) = 0;
  218.         Sub Compare()
  219.         'virtual HRESULT STDMETHODCALLTYPE Compare( 
  220.         '    /* [in] */ __RPC__in_opt IShellItem *psi,
  221.         '    /* [in] */ SICHINTF hint,
  222.         '    /* [out] */ __RPC__out int *piOrder) = 0;
  223.     End Interface

  225.     Public Const IID_IShellItem2 As String = "7e9fb0d3-919f-4307-ab2e-9b1860310c93"
  226.     <ComImport,
  227.      InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
  228.      Guid(IID_IShellItem2)>
  229.     Interface IShellItem2 : Inherits IShellItem
  230.         Sub GetPropertyStore()
  231.         ' /* [in] */ GETPROPERTYSTOREFLAGS flags,
  232.         ' /* [in] */ __RPC__in REFIID riid,
  233.         ' /* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  234.         Sub GetPropertyStoreWithCreateObject()
  235.         ' /* [in] */ GETPROPERTYSTOREFLAGS flags,
  236.         ' /* [in] */ __RPC__in_opt IUnknown *punkCreateObject,
  237.         ' /* [in] */ __RPC__in REFIID riid,
  238.         ' /* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  239.         Sub GetPropertyStoreForKeys()
  240.         ' /* [size_is][in] */ __RPC__in_ecount_full(cKeys) const PROPERTYKEY *rgKeys,
  241.         ' /* [in] */ UINT cKeys,
  242.         ' /* [in] */ GETPROPERTYSTOREFLAGS flags,
  243.         ' /* [in] */ __RPC__in REFIID riid,
  244.         ' /* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  245.         Sub GetPropertyDescriptionList()
  246.         '/* [in] */ __RPC__in REFPROPERTYKEY keyType,
  247.         '/* [in] */ __RPC__in REFIID riid,
  248.         '/* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  249.         Sub Update()
  250.         '/* [unique][in] */ __RPC__in_opt IBindCtx *pbc) = 0;
  251.         Sub GetProperty()
  252.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  253.         '/* [out] */ __RPC__out PROPVARIANT *ppropvar) = 0;
  254.         Sub GetCLSID()
  255.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  256.         '/* [out] */ __RPC__out CLSID *pclsid) = 0;
  257.         Sub GetFileTime()
  258.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  259.         '/* [out] */ __RPC__out FILETIME *pft) = 0;
  260.         Sub GetInt32()
  261.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  262.         '/* [out] */ __RPC__out int *pi) = 0;
  263.         Sub GetString()
  264.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  265.         '/* [string][out] */ __RPC__deref_out_opt_string LPWSTR *ppsz) = 0;

  267.         Sub GetUInt32()
  268.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  269.         '/* [out] */ __RPC__out ULONG *pui) = 0;

  271.         Sub GetUInt64()
  272.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  273.         '/* [out] */ __RPC__out ULONGLONG *pull) = 0;

  275.         Sub GetBool()
  276.         '/* [in] */ __RPC__in REFPROPERTYKEY key,
  277.         '/* [out] */ __RPC__out BOOL *pf) = 0;
  278.     End Interface

  280.     Enum SIGDN As Int32
  281.         SIGDN_NORMALDISPLAY = 0
  282.         SIGDN_PARENTRELATIVEPARSING = CType(&H80018001, Int32)
  283.         SIGDN_DESKTOPABSOLUTEPARSING = CType(&H80028000, Int32)
  284.         SIGDN_PARENTRELATIVEEDITING = CType(&H80031001, Int32)
  285.         SIGDN_DESKTOPABSOLUTEEDITING = CType(&H8004C000, Int32)
  286.         SIGDN_FILESYSPATH = CType(&H80058000, Int32)
  287.         SIGDN_URL = CType(&H80068000, Int32)
  288.         SIGDN_PARENTRELATIVEFORADDRESSBAR = CType(&H8007C001, Int32)
  289.         SIGDN_PARENTRELATIVE = CType(&H80080001, Int32)
  290.         SIGDN_PARENTRELATIVEFORUI = CType(&H80094001, Int32)
  291.     End Enum

  293.     Public Const FolderId_Desktop As String = "B4BFCC3A-DB2C-424C-B029-7FE99A87C641"
  294.     Public Const FolderId_RoamingAppData As String = "3EB685DB-65F9-4CF6-A03A-E3EF65729F3D"
  295.     Public Const FolderId_LocalAppData As String = "F1B32785-6FBA-4FCF-9D55-7B8E7F157091"
  296.     Public Const FolderId_LocalAppDataLow As String = "A520A1A4-1780-4FF6-BD18-167343C5AF16"
  297.     Public Const FolderId_NetworkFolder As String = "D20BEEC4-5CA8-4905-AE3B-BF251EA09B53"
  298.     Public Const FolderId_ComputerFolder As String = "0AC0837C-BBF8-452A-850D-79D08E667CA7"
  299.     Public Const FolderId_InternetFolder As String = "4D9F7874-4E0C-4904-967B-40B0D20C3E4B"
  300.     Public Const FolderId_System As String = "1AC14E77-02E7-4E5D-B744-2EB1AE5198B7"
  301.     Public Const FolderId_Documents As String = "FDD39AD0-238F-46AF-ADB4-6C85480369C7"
  302.     Public Const FolderId_Windows As String = "F38BF404-1D43-42F2-9305-67DE0B28FC23"
  303.     Public Const FolderId_Downloads As String = "374DE290-123F-4565-9164-39C4925E467B"

  305.     Public Const CLSID_ShellWindows As String = "9BA05972-F6A8-11CF-A442-00A0C90A8F39"
  306.     Public Const IID_IShellWindows As String = "85CB6900-4D95-11CF-960C-0080C7F4EE85"
  307.     Public Const CLSID_ShellItem As String = "9ac9fbe1-e0a2-4ad6-b4ee-e212013ea917"
  308.     Public Const IID_IExplorerBrowser As String = "dfd3b6b5-c10c-4be9-85f6-a66969f402f6"
  309.     Public ReadOnly Null As IntPtr = IntPtr.Zero
  310.     Public Const S_OK As Int32 = 0
  311.     Public Const S_FALSE As Int32 = 1
  312.     Public Const E_NOINTERFACE As Int32 = &H80004002I
  313.     Enum COINITBASE As UInt32
  314.         COINITBASE_MULTITHREADED = 0     ' // OLE calls objects On any thread.
  315.     End Enum
  316.     Enum COINIT As UInt32
  317.         COINIT_APARTMENTTHREADED = 2 '     // Apartment model
  318.         COINIT_MULTITHREADED = COINITBASE.COINITBASE_MULTITHREADED
  319.         COINIT_DISABLE_OLE1DDE = 4
  320.         COINIT_SPEED_OVER_MEMORY = 8
  321.     End Enum
  322.     Public Const CLSID_KnownFolderManager As String = "4df0c730-df9d-4ae3-9153-aa6b82e9795a"

  324.     Public Const IID_IKnownFolderManager As String = "8BE2D872-86AA-4d47-B776-32CCA40C7018"
  325.     <ComImport,
  326.     InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
  327.     Guid(IID_IKnownFolderManager)>
  328.     Interface IKnownFolderManager : Inherits IUnKnown
  329.         Sub FolderIdFromCsidl()
  330.         '       /* [in] */ int nCsidl,
  331.         '       /* [out] */ __RPC__out KNOWNFOLDERID *pfid) = 0;
  332.         Sub FolderIdToCsidl()
  333.         '   virtual HRESULT STDMETHODCALLTYPE FolderIdToCsidl( 
  334.         '       /* [in] */ __RPC__in REFKNOWNFOLDERID rfid,
  335.         '       /* [out] */ __RPC__out int *pnCsidl) = 0;
  336.         Sub GetFolderIds(
  337.           <Out> ByRef pKnownFolderId As IntPtr,
  338.           <InAttribute> <Out> ByRef count As UInt32)
  339.         '   virtual HRESULT STDMETHODCALLTYPE GetFolderIds( 
  340.         '  /* [size_is][size_is][out] */ __RPC__deref_out_ecount_full_opt(*pCount) KNOWNFOLDERID **ppKFId,
  341.         '  /* [out][in] */ __RPC__inout UINT *pCount) = 0;
  342.         Sub GetFolder(
  343.         <MarshalAs(UnmanagedType.LPStruct)> REFKNOWNFOLDERID As Guid,
  344.         <Out, MarshalAs(UnmanagedType.Interface)> ByRef pIKnownFolder As Object)
  345.         '   virtual HRESULT STDMETHODCALLTYPE GetFolder( 
  346.         '       /* [in] */ __RPC__in REFKNOWNFOLDERID rfid,
  347.         '       /* [out] */ __RPC__deref_out_opt IKnownFolder **ppkf) = 0;
  348.         Sub GetFolderByName()
  349.         '   /* [string][in] */ __RPC__in_string LPCWSTR pszCanonicalName,
  350.         '   /* [out] */ __RPC__deref_out_opt IKnownFolder **ppkf) = 0;
  351.         Sub RegisterFolder()
  352.         '   virtual HRESULT STDMETHODCALLTYPE RegisterFolder( 
  353.         '       /* [in] */ __RPC__in REFKNOWNFOLDERID rfid,
  354.         '       /* [in] */ __RPC__in const KNOWNFOLDER_DEFINITION *pKFD) = 0;
  355.         Sub UnregisterFolder()
  356.         '       /* [in] */ __RPC__in REFKNOWNFOLDERID rfid) = 0;
  357.         Sub FindFolderFromPath()
  358.         '       /* [string][in] */ __RPC__in_string LPCWSTR pszPath,
  359.         '       /* [in] */ FFFP_MODE mode,
  360.         '       /* [out] */ __RPC__deref_out_opt IKnownFolder **ppkf) = 0;
  361.         Sub FindFolderFromIDList()
  362.         '       /* [in] */ __RPC__in PCIDLIST_ABSOLUTE pidl,
  363.         '       /* [out] */ __RPC__deref_out_opt IKnownFolder **ppkf) = 0;
  364.         Sub Redirect()
  365.         '   virtual /* [local] */ HRESULT STDMETHODCALLTYPE Redirect( 
  366.         '       /* [annotation][in] */ 
  367.         '       _In_  REFKNOWNFOLDERID rfid,
  368.         '       /* [annotation][unique][in] */ 
  369.         '       _In_opt_  HWND hwnd,
  370.         '       /* [annotation][in] */ 
  371.         '       _In_  KF_REDIRECT_FLAGS flags,
  372.         '       /* [annotation][string][unique][in] */ 
  373.         '       _In_opt_  LPCWSTR pszTargetPath,
  374.         '       /* [annotation][in] */ 
  375.         '       _In_  UINT cFolders,
  376.         '       /* [annotation][unique][size_is][in] */ 
  377.         '       _In_reads_opt_(cFolders)  const KNOWNFOLDERID *pExclusion,
  378.         '       /* [annotation][string][out] */ 
  379.         '       _Outptr_opt_result_maybenull_  LPWSTR *ppszError) = 0;
  380.     End Interface

  382.     Public Const IID_IKnownFolder As String = "3AA7AF7E-9B36-420c-A8E3-F77D4674A488"
  383.     <ComImport,
  384.     InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
  385.     Guid(IID_IKnownFolder)>
  386.     Public Interface IKnownFolder : Inherits IUnKnown
  387.         Sub GetId()
  388.         'virtual HRESULT STDMETHODCALLTYPE GetId( 
  389.         '    /* [out] */ __RPC__out KNOWNFOLDERID *pkfid) = 0;
  390.         Sub GetCategory()
  391.         'virtual HRESULT STDMETHODCALLTYPE GetCategory( 
  392.         '    /* [out] */ __RPC__out KF_CATEGORY *pCategory) = 0;

  394.         Sub GetShellItem(
  395.           dwFlags As UInt32,
  396.          <MarshalAs(UnmanagedType.LPStruct)> REFIID_iid As Guid,
  397.          <Out, MarshalAs(UnmanagedType.Interface)> ByRef _Com_OutPtr As Object)
  398.         'virtual HRESULT STDMETHODCALLTYPE GetShellItem( 
  399.         '   /* [in] */ DWORD dwFlags,
  400.         '   /* [in] */ __RPC__in REFIID riid,
  401.         '   /* [iid_is][out] */ __RPC__deref_out_opt void **ppv) = 0;
  402.         Sub GetPath()
  403.         'virtual HRESULT STDMETHODCALLTYPE GetPath( 
  404.         '    /* [in] */ DWORD dwFlags,
  405.         '    /* [string][out] */ __RPC__deref_out_opt_string LPWSTR *ppszPath) = 0;
  406.         Sub SetPath()
  407.         'virtual HRESULT STDMETHODCALLTYPE SetPath( 
  408.         '    /* [in] */ DWORD dwFlags,
  409.         '    /* [string][in] */ __RPC__in_string LPCWSTR pszPath) = 0;
  410.         Sub GetIDList()
  411.         'virtual HRESULT STDMETHODCALLTYPE GetIDList( 
  412.         '    /* [in] */ DWORD dwFlags,
  413.         '    /* [out] */ __RPC__deref_out_opt PIDLIST_ABSOLUTE *ppidl) = 0;
  414.         Sub GetFolderType()
  415.         'virtual HRESULT STDMETHODCALLTYPE GetFolderType( 
  416.         '    /* [out] */ __RPC__out FOLDERTYPEID *pftid) = 0;
  417.         Sub GetRedirectionCapabilities()
  418.         'virtual HRESULT STDMETHODCALLTYPE GetRedirectionCapabilities( 
  419.         '    /* [out] */ __RPC__out KF_REDIRECTION_CAPABILITIES *pCapabilities) = 0;
  420.         Sub GetFolderDefinition()
  421.         ' virtual HRESULT STDMETHODCALLTYPE GetFolderDefinition( 
  422.         '    /* [out] */ __RPC__out KNOWNFOLDER_DEFINITION *pKFD) = 0;
  423.     End Interface


  426. End Module









  1. #include "pch.h" // use stdafx.h in Visual Studio 2017 and earlier
  2. #include <Windows.h>
  3. #include <strsafe.h>
  4. #include <math.h>
  5. #include <ShlObj_core.h>
  6. extern "C" {
  7.     __declspec(dllexport) void BeginTest(LPCWSTR p, INT32 FunSelector);
  8.     __declspec(dllexport) void Get_TestData(LPWSTR* p, INT32 MaxCount);
  9. }
  10. HRESULT hr;
  11. const size_t Str_Buffer_size = 4 << 20;
  12. wchar_t Str_Value[Str_Buffer_size];
  13. wchar_t* pStart;
  14. size_t RemainedLength;

  16. auto  WriteText = [&](const wchar_t* fmt, ...) {
  17.     va_list args;
  18.     va_start(args, fmt);
  19.     StringCchVPrintfExW(pStart, RemainedLength, &pStart, &RemainedLength, 0,
  20.         fmt, args);
  21.     va_end(args);
  22.     };

  24. void BeginTest(LPCWSTR p1, INT32 FunSelector) {
  25.     const wchar_t* Comment = L"= <-- Marshalling DLL -->";
  26.     RemainedLength = ARRAYSIZE(Str_Value);
  27.     pStart = Str_Value;
  28.     WriteText(L"%s %s 1\n", p1, Comment);
  29.     if (SUCCEEDED(CoInitializeEx(NULL, COINIT_APARTMENTTHREADED)) &&
  30.         SUCCEEDED(OleInitialize(NULL))) {
  31.         void KnownFolder_Desktop();
  32.         void KnownFolder_Manager();
  33.         if (FunSelector == 1)       KnownFolder_Desktop();
  34.         else  if (FunSelector == 2)  KnownFolder_Manager();
  35.         OleUninitialize();
  36.         CoUninitialize();
  37.     }
  38.     WriteText(L"%s %s 2\n", p1, Comment);
  39. }

  41. void Get_TestData(LPWSTR* p, INT32 nMaxCount) {
  42.     StringCchCopyNW(*p, nMaxCount, Str_Value, pStart - Str_Value + 1);
  43. }

  45. void KnownFolder_Desktop() {
  46.     LPWSTR pwszPath = NULL;
  47.     SHGetKnownFolderPath(FOLDERID_Desktop, 0, NULL, &pwszPath);
  48.     WriteText(L"SHGetKnownFolderPath ==> %s\n", pwszPath);
  49.     CoTaskMemFree(pwszPath);

  51.     PIDLIST_ABSOLUTE ppidl;
  52.     SHGetKnownFolderIDList(FOLDERID_Desktop, 0, NULL, &ppidl);
  53.     SHGetNameFromIDList(ppidl, SIGDN::SIGDN_URL, &pwszPath);
  54.     WriteText(L"URL_Path ======> %s\n", pwszPath);
  55.     ILFree(ppidl); CoTaskMemFree(pwszPath);

  57.     IShellItem* pIShellItem;
  58.     IShellItem2* pIShellItem2;
  59.     hr = SHGetKnownFolderItem(FOLDERID_Desktop, KF_FLAG_DEFAULT, NULL,
  60.         IID_IShellItem, IID_PPV_ARGS_Helper(&pIShellItem));
  61.     if (SUCCEEDED(hr)) {
  62.         pIShellItem->GetDisplayName(SIGDN_NORMALDISPLAY, &pwszPath);
  63.         WriteText(L"name  : %s\n", pwszPath);
  64.         CoTaskMemFree(pwszPath);
  65.         pIShellItem->GetDisplayName(SIGDN_FILESYSPATH, &pwszPath);
  66.         WriteText(L"name  : %s\n", pwszPath);
  67.         CoTaskMemFree(pwszPath);

  69.         pIShellItem->QueryInterface(IID_IShellItem2, IID_PPV_ARGS_Helper(&pIShellItem2));

  71.         pIShellItem2->GetDisplayName(SIGDN_NORMALDISPLAY, &pwszPath);
  72.         WriteText(L"name2 : %s\n", pwszPath);
  73.         CoTaskMemFree(pwszPath);
  74.         pIShellItem2->GetDisplayName(SIGDN_FILESYSPATH, &pwszPath);
  75.         WriteText(L"name2 : %s\n", pwszPath);
  76.         CoTaskMemFree(pwszPath);

  78.         WriteText(L"pIShellItem->Release  = (%i)\n", pIShellItem->Release());
  79.         WriteText(L"pIShellItem2->Release = (%i)\n", pIShellItem2->Release());
  80.     }
  81. }
  82. void KnownFolder_Manager() {
  83.     IKnownFolderManager* pManager;
  84.     hr = CoCreateInstance(CLSID_KnownFolderManager, NULL,
  85.         CLSCTX_INPROC_SERVER, IID_PPV_ARGS(&pManager));
  86.     if (SUCCEEDED(hr)) {
  87.         KNOWNFOLDERID* pKnownFolderIDs = NULL;
  88.         UINT cCount = 0;
  89.         hr = pManager->GetFolderIds(&pKnownFolderIDs, &cCount);
  90.         if (SUCCEEDED(hr) && pKnownFolderIDs) {
  91.             for (UINT ii = 0; ii < cCount; ii++) {
  92.                 IKnownFolder* pKnownFolder;
  93.                 hr = pManager->GetFolder(*(pKnownFolderIDs + ii), &pKnownFolder);
  94.                 if (SUCCEEDED(hr)) {
  95.                     WriteText(L"%3i:", ii + 1);
  96.                     IShellItem* psi;
  97.                     hr = pKnownFolder->GetShellItem(0, IID_PPV_ARGS(&psi));
  98.                     if (SUCCEEDED(hr)) {
  99.                         LPWSTR pwstr1, pwstr2;
  100.                         psi->GetDisplayName(SIGDN_NORMALDISPLAY, &pwstr1);
  101.                         WriteText(L"%s ===> ", pwstr1);
  102.                         CoTaskMemFree(pwstr1);
  103.                         psi->GetDisplayName(SIGDN_FILESYSPATH, &pwstr2);
  104.                         WriteText(L"%s", pwstr2);
  105.                         CoTaskMemFree(pwstr2);
  106.                         psi->Release();
  107.                     }
  108.                     pKnownFolder->Release();
  109.                     WriteText(L"\n");
  110.                 }
  111.             }
  112.             CoTaskMemFree(pKnownFolderIDs);
  113.         }
  114.         pManager->Release();
  115.     }
  116. }






留言

張貼留言

這個網誌中的熱門文章

Calling a C# WPF library from C++

圖片
  // ConsoleApplication_Hello.cpp : This file contains the 'main' function. Program execution begins and ends there. // #include <iostream> #include "Windows.h" #include <filesystem> #include <fstream> #include <string> #include "combaseapi.h" #pragma comment(lib,"..\\x64\\Debug\\ClassLibrary1") #define _hr(X) _ASSERTE(SUCCEEDED(X)) using namespace std; namespace fs = std::filesystem; fs::path MyRootPath; extern "C" __declspec(dllimport) HRESULT Get_Load_WPF_Library_Interface(void** pMyObj); struct __declspec(dllimport)  MyCreateInstance { MyCreateInstance(); HRESULT Create_WPF_Instance(BSTR filename, BSTR CLSID, IUnknown** pIUnknown); ~MyCreateInstance(); }; class MyBSTR { BSTR _bstr; public: MyBSTR(std::wstring str) { _bstr = SysAllocStringLen(str.c_str(), str.length()); } ~MyBSTR() { SysFreeString(_bstr); } operator BSTR()const { return _bstr; } }; static void AppInitialize() { WCHAR ...
閱讀完整內容

Marshalling II

圖片
Updated on July 29,2025  #include <iostream> namespace Chen { int My_Console_Main(const wchar_t* comment); } int main() {     std::cout << "Hello World!\n";     return Chen::My_Console_Main(L"Startup project with =====> MFC"); } Updated on July 29,2025  #include "Windows.h" #include "shlwapi.h" #include "Psapi.h" #include "stdexcept" #include "stdarg.h" #include "stdio.h" #define AfxLoadLibrary  LoadLibraryW #define AfxFreeLibrary  FreeLibrary    #if defined(_M_AMD64) && defined(_WIN64) && defined(_CONSOLE) && \     _MSVC_LANG >= 201703L  #include "TestParameter.h" namespace Chen {     int My_Console_Main(const wchar_t* comment); #define CreationInstance_clsid  OLESTR("91DD12FD-4DBD-4B83-AC40-439E3B6393A1") #define CreationInstance_iid    OLESTR("85927839-0BB2-423B-97D6-89A2D4002519") #ifdef _DEBUG     const LPCWSTR MyDllname =     ...
閱讀完整內容