delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃ溯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  sFunc: TFunc;  
  HInst: THandle;  
  begin  
  HInst := SafeLoadLibrary('ÎÒµÄDLLµÄÃû³Æ.DLL');  

  if HInst > 0 then  
  { try  
  sFunc:=GetProcAddress(HInst,PChar('FunctionA')); 
  //這個sFuncÇ°Ãæ沒ÓÐÈ¡µØÖ··û號@ 
  ShowMessage(IntToStr(sFunc(123)));
  finally  
  FreeLibrary(HInst);  
  end; } 
   
  //ÏÂÃæµÄ調Ó÷½Ê½ºÃÏñÒ²¿ÉÒÔ£¬²»ÖªµÀÔõôÀí½â£¿£¿
  try
  @sFunc:=GetProcAddress(HInst,PChar('FunctionA'));
  //這個@sFunc,Ç°ÃæÓÐ個È¡µØÖ··û號@£¬ÔõôÀí½â  
  ShowMessage(IntToStr(sFunc(123)));
  finally
  FreeLibrary(HInst);  
  end;  
 
  end;

---

{ try  
  sFunc:=GetProcAddress(HInst,PChar('FunctionA')); 
  //這個sFuncÇ°Ãæ沒ÓÐÈ¡µØÖ··û號@ 
  ShowMessage(IntToStr(sF