我也想知道,前几天有人问我这个问题,
我也搞不定!

解决方案 »

  1.   

    能不能先用GetProcAddress获取已装载入的代码段的地址,然后通过定义与指定函数结构相同的调用函数执行该代码?
    例如:
      New(MyFunc);
      hm := LoadLibrary(PChar('D:\testdll.dll'));
      if hm > 32 then
         begin
         MyFunc := GetProcAddress(hm, PChar('FunctionInDll'));
         order := FMyFunc(MyFunc)(i, j);
         end
      else
         ShowMessage('Loading error!');
      FreeLibrary(hm);其中FunctionInDll为dll中的函数,MyFunc定义结构与之相同,i、j为参数