大家来看看

Question

type   tfnSendMessage =function(hWnd :HWND):String;stdcall;
 Th :=LoadLibrary('DLLTEST.dll');
         if Th>0         then
          begin
              Tp :=GetProcAddress(Th,PChar('fnSendMessage'));
                if tp <>nil  then
我怎么得到的TP是空的，每次执行到最后一行就跳过去的，到底是什么地方错了阿

Answer 1

他返回一个指向所需例程的指针.
你看看下面的测试一下
t:Pchar;t := GetProcAddress(Th,PChar('fnSendMessage'));
result := Pchar(String(t));