DLL 作成パッケージ : Visual Studio 2005 VC++

Framework から Win32API を利用する為の dll 作成

アプリケーションとして目的を達成すれば良いのであれば、無理に .NET から
dll を直接呼び出そうとせずに、都合の良いインターフェイスにした dll で
橋渡しをすると良い場合もあります

// *********************************************************
// dll 作成スケルトン
// ( VC++ 2005 より )
// *********************************************************
 
#define _WIN32_WINNT 0x0500
#define WIN32_LEAN_AND_MEAN
#define WINDOWHOOK_API __declspec(dllexport)
 
#include <windows.h>
#include <stdlib.h>
#include <malloc.h>
#include <memory.h>
#include <tchar.h>
#include <stdio.h>
 
WINDOWHOOK_API int fnWindowHook(void);
 
 
// *********************************************************
// エントリポイント
// *********************************************************
BOOL APIENTRY DllMain(
    HMODULE hModule,
    DWORD  ul_reason_for_call,
    LPVOID lpReserved
)
{
    switch (ul_reason_for_call) {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}
 
 
// *********************************************************
// エクスポートする関数
// HKEY_LOCAL_MACHINE のデータ取得
// 戻り値はデータのタイプ( -1 はエラー )
// *********************************************************
WINDOWHOOK_API DWORD RegReadLocalMachine(
    LPTSTR key, LPTSTR entry,
    LPTSTR value, DWORD size)
{
 
    LONG nRet;
    HKEY hKey;
    DWORD nType;
    nType = -1;
 
    nRet = RegOpenKeyEx(
        HKEY_LOCAL_MACHINE,
        key,
        0,
        KEY_ALL_ACCESS,
        &hKey
    );
    if ( nRet == ERROR_SUCCESS ) {
        nRet = RegQueryValueEx(
            hKey,
            entry,
            NULL,
            &nType,
            (LPBYTE)value,
            &size
        );
    }
 
    RegCloseKey( hKey );
 
    return nType;
}

Win32.def

LIBRARY "Win32.dll"
 
EXPORTS
    RegReadLocalMachine @1

VB.NET からの呼び出し

インターネットエクスプローラのバージョンを表示しています

Imports System.Text
Imports System.Runtime.InteropServices
 
Module Module1
 
    <DllImport("Win32.dll", CharSet:=CharSet.Ansi)> _
     Public Function RegReadLocalMachine( _
      ByVal key As String, _
      ByVal entry As String, _
      ByVal value As StringBuilder, _
      ByVal size As Int32) As Int32
    End Function
 
    Sub Main()
 
        Dim buffer As New StringBuilder(512)
        Dim ret As Int32
 
        ret = RegReadLocalMachine( _
          "SOFTWARE\Microsoft\Internet Explorer", _
          "Version", _
          buffer, _
          512)
 
        Console.WriteLine(buffer.ToString(), 512)
 
    End Sub
 
End Module

レジストリタイプ

#define REG_NONE                    ( 0 )   // No value type
#define REG_SZ                      ( 1 )   // Unicode nul terminated string
#define REG_EXPAND_SZ               ( 2 )   // Unicode nul terminated string
                                            // (with environment variable references)
#define REG_BINARY                  ( 3 )   // Free form binary
#define REG_DWORD                   ( 4 )   // 32-bit number
#define REG_DWORD_LITTLE_ENDIAN     ( 4 )   // 32-bit number (same as REG_DWORD)
#define REG_DWORD_BIG_ENDIAN        ( 5 )   // 32-bit number
#define REG_LINK                    ( 6 )   // Symbolic Link (unicode)
#define REG_MULTI_SZ                ( 7 )   // Multiple Unicode strings
#define REG_RESOURCE_LIST           ( 8 )   // Resource list in the resource map
#define REG_FULL_RESOURCE_DESCRIPTOR ( 9 )  // Resource list in the hardware description
#define REG_RESOURCE_REQUIREMENTS_LIST ( 10 )
#define REG_QWORD                   ( 11 )  // 64-bit number
#define REG_QWORD_LITTLE_ENDIAN     ( 11 )  // 64-bit number (same as REG_QWORD)