N
Neotian
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TFormMain.ListViewDetailDblClick(Sender: TObject);<br>var<br> str:string;<br> HInst:THandle;<br> FPointer:TFarProc;<br> InitFunc:TInitFunc;<br>begin<br> if ListViewDetail.Selected =nil then exit;<br> str := ListViewDetail.Selected.Caption;<br> if str = 'xxx' then begin<br> HInst := LoadLibrary('UserMgr.dll');<br> if HInst >0 then<br> try<br> @init_user:= GetProcAddress(HInst,'init_user');<br> if @init_user <> nil then begin<br> init_user();<br> end<br> else begin<br> MessageBeep(3);<br> MessageDlg('vvvvvvvvvvvv&iexcl;',mtError,[mbOK],0);<br> end;<br> finally<br> FreeLibrary(HInst);<br> end<br> else begin<br> MessageBeep(3);<br> MessageDlg('mmmmmmmmmmmmm',mtError,[mbOK],0);<br> end;<br> end;<br>为什么上面的代码在编译的时候提示无法识别字符init_user,请告知。<br><br>