Dll文件动态调用

procedure TMakeCode.ShowDllForm;type    TShowForm = Function(PH: HWnd; MemoW: TMemo):Integer;Stdcall;var    ShowDllForm: TShowForm;    DllFileName: String;          //例如  C:\Dll\Dllname.dll    Han: HWmd;begin    FreeLibrary(Han);    Han:= LoadLibrary(PChar(DllFileName));    @ShowDllForm:= GetProcAddress(Han, 'ShowDllForm');    ShowDllForm(Panel.Handle, Memo);        //Pabel为Dll中窗口的父窗口  在Panel中显示    FreeLibrary(Han);end;