delphi 动态调用DLL

**********DLL中**********

  function test(const astr:PChar):Boolean;stdcall;

**********应用中**********

Type

      TFTest= function test(const astr:PChar):Boolean;stdcall;

var

tft:TFTest;

handle:THandle;

**********

begin

handle:=LoadLibrary('name.dll');

@tft:=GetProcAddress(handle,'test');

FreeLibrary(Handle);

end;