var<br> OneHandle:THandle;<br> vv:^Integer;<br>begin<br> OneHandle:=LoadLibrary(pchar(extractfilepath(application.exename)+'spserver.dll'));<br> try<br> if OneHandle<>0 then<br> begin<br> vv:=GetProcAddress(OneHandle,'VSPPCommInit');<br> if @vv<>nil then<br> begin<br> if @vv(12199,1)=0 then<br> showmessage('success')<br> else<br> showmessage('faild');<br> end<br> else<br> RaiseLastWin32Error;<br> end;<br> finally<br> FreeLibrary(OneHandle);<br> end;<br>这样为什么不行呢? dll中确实有VSPPCommInit函数!