delphi怎么访问一个DLL，急

Question

假如MyFun是MyDLL的一个函数，function MyDll(ii: Integer):Integer;stdcall;
声明函数
function MyFun(ii: Integer):Integer;stdcall external 'MyDll.DLL';

Answer 1

动态
aHandle:=LoadLibrary(pchar(dllname));
GetProcAddress(pchar(funName));
FreeLibrary(aHandle);

Answer 2

不是本身的，两者分开
DLL和程序

Answer 3

同意genphone_ru(票票)静态调用和 newwen(wen)动态调用

Answer 4

静态调用：
声明下究竟行了
function abc(value:integer):integer;stdcall;external'xxx.dll';
XXX。DLL需在当前目录或系统目录
动态调用：
给段例子：Type TmyProc = procedure(Param:Pchar);stdcall; 
var  MyPorc:TmyProc
     MyHandle:THandle;
  MyHandle:=loadlibrary('MyDll');
  if MyHandle <= 0 then 
    Raise Exception.create('失败'+inttostr(GetLastError))
  else 
    @MyProc:=GetProcAddress(MyHandle,'A Proc'); //A Proc 是DLL的例程
    if not assigned(MyProc) then 
      Raise Exception.create('失败'+inttostr(GetLastError))
    else MyProc(pchar('a string'));
 FreeLibrary(MyHandle);注意，声明时，大小写是敏感的