Live Free or Code Hard

  1 import std.c.windows.windows;
  2 import std.stdio;
  3 import std.traits;
  4 import std.string;
  5 import std.utf;
  6 
  7 struct Symbol(char[] SymName, Ret, Params...)
  8 {
  9     alias Params        Parameters;
 10     alias Ret           ReturnValue;
 11     const char[] Name = SymName;
 12     extern(Windows) alias ReturnValue function(Params) FunctionType;
 13 }
 14 
 15 // FP_Function
 16 private template MixinMember(S) //S = Symbol template
 17 {
 18     mixin("public alias S.FunctionType FP_" ~ S.Name ~ ";");
 19     mixin("public S.FunctionType " ~ S.Name ~ ";");
 20 }
 21 
 22 
 23 private template MixinAllMembers(S, V...)
 24 {
 25     mixin MixinMember!(S);
 26     static if(V.length > 0)
 27     {
 28         mixin MixinAllMembers!(V);
 29     }
 30 }
 31 
 32 
 33 class Module(char[] Path, Symbols...)
 34 {
 35     private HMODULE m_handle = null;
 36 
 37     public mixin MixinAllMembers!(Symbols);
 38 
 39     public this()
 40     {
 41         load(Path);
 42         initMembers();
 43     }
 44 
 45     public ~this()
 46     {
 47         free();
 48     }
 49 
 50     private void initMembers()
 51     {
 52         foreach (i, S; Symbols)
 53         {
 54             mixin(S.Name ~ " = getSymbol!(FP_" ~ S.Name ~ ")(S.Name);");
 55         }
 56     }
 57 
 58     void load(char[] path)
 59     {
 60 
 61 //       m_handle = LoadLibraryW(toUtf16z(path));
 62         m_handle = LoadLibraryA(toStringz(path));
 63         assert(m_handle);
 64     }
 65 
 66     void free()
 67     {
 68         if(m_handle != null)
 69         {
 70             FreeLibrary(m_handle);
 71             m_handle = null;
 72         }
 73     }
 74 
 75     public T getSymbol(T)(char[] sym)
 76     {
 77         return cast(T)getSymbol1(sym);
 78     }
 79 
 80     public void* getSymbol1(char[] sym)
 81     {
 82         return GetProcAddress(m_handle, toStringz(sym));
 83     }
 84 
 85 }
 86 
 87 
 88 void main()
 89 {
 90 
 91     auto dll = new Module!("User32.dll",
 92             Symbol!("MessageBoxW", int, HWND, LPCWSTR, LPCWSTR, UINT),
 93             Symbol!("MessageBoxA", int, HWND, LPCSTR, LPCSTR, UINT)
 94             );
 95 
 96     dll.MessageBoxW(null, "Hello! DLL! W", "Title W", MB_OK);
 97     dll.MessageBoxA(null, "Hello! DLL! A", "Title A", MB_OK);
 98 
 99 }
100 

注意：需要 DMD 1.005+ 编译。

BTW: 这个语法着色是用Vim搞的，很顺眼。

如需要原始源程序请与我联系：wstring#**.@.**#gmail.com