VB - Linking a DLL in implicit way

后端 未结 3 1160
日久生厌
日久生厌 2020-12-02 02:25

I\'m working on a VB6 graphic interface and I need to make an implicit linking to a DLL.

The motivation for this comes from my previous question. The DLL in question

3条回答
  •  臣服心动
    2020-12-02 03:12

    Here is a sample IDL that import functions from standard OS dlls

    [
      uuid(YOURTYPE-LIBG-UIDH-ERE0-000000000000),
      version(1.0),
      helpstring ("My Type Library 1.0")
    ]
    library MyTypeLib
    {
        importlib("stdole2.tlb");
    
        typedef struct {
            long    Data1;
            short   Data2;
            short   Data3;
            BYTE    Data4[8];
        } VBGUID;
    
        typedef VBGUID CLSID;
    
        [dllname("OLEAUT32")]
        module OleAut32
        {
            [entry("SysAllocString")]
            BSTR SysAllocString([in] long lpStr);
            ...
        };
    
        [dllname("USER32")]
        module User32
        {
            [entry("RegisterClipboardFormatA")]
            UINT RegisterClipboardFormat([in] LPSTR lpszFormat);
            [entry("FillRect")]
            DWORD FillRect([in] DWORD hDC, [in] int lpRect, [in] DWORD hBrush);
            ...
        };
    
        [dllname("BOGUS")]
        module Strings
        {
            const LPSTR CLSID_DsQuery = "{8A23E65E-31C2-11D0-891C-00A024AB2DBB}";
            const LPSTR CLSID_DsFindObjects = "{83EE3FE1-57D9-11D0-B932-00A024AB2DBB}";
            ...
        }
    }
    

提交回复
热议问题