DELPHI中动态调用DLL的载入片断代码

function LoadLibs: Boolean;
var prefix : AnsiString;
function connectProc(var ProcAdr:pointer;ProcName:AnsiString):boolean;
begin
ProcAdr := GetProcAddress(DLLHandle, PChar(prefix+ProcName));
if not Assigned(ProcAdr) then
begin
ShowMessage('Could not find method: '+prefix+ProcName);
connectProc := False;
end
else connectProc := True;
end;
begin
Result := False;
DLLHandle := LoadLibrary(SQLITEDLL);
if DLLHandle <> 0 then
begin
Result := true;
//check if sqlite.dll was compiled with borland bcc (recomended!!!)
if GetProcAddress(DLLHandle, PChar('_sqlite_open')) <> nil then
prefix:='_' else prefix:='';

Result := Result and connectProc(@SQLite_Open,   'sqlite_open');
Result := Result and connectProc(@SQLite_Exec,   'sqlite_exec');
Result := Result and connectProc(@SQLite_Close,   'sqlite_close');
Result := Result and connectProc(@SQLite_Version,'sqlite_libversion');
Result := Result and connectProc(@SQLite_Encoding,    'sqlite_libencoding');
Result := Result and connectProc(@SQLite_ErrorString ,'sqlite_error_string');

Result := Result and connectProc(@SQLite_GetTable , 'sqlite_get_table');
Result := Result and connectProc(@SQLite_FreeTable ,'sqlite_free_table');
Result := Result and connectProc(@SQLite_FreeMem ,  'sqlite_freemem');
Result := Result and connectProc(@SQLite_Complete , 'sqlite_complete');

Result := Result and connectProc(@SQLite_LastInsertRow ,'sqlite_last_insert_rowid');
Result := Result and connectProc(@SQLite_Cancel ,'sqlite_interrupt');
Result := Result and connectProc(@SQLite_BusyTimeout ,'sqlite_busy_timeout');
Result := Result and connectProc(@SQLite_BusyHandler ,'sqlite_busy_handler');
Result := Result and connectProc(@SQLite_Changes ,'sqlite_changes');

Result := Result and connectProc(@SQLite_Create_Function ,  'sqlite_create_function');
Result := Result and connectProc(@SQLite_Set_Result_Double ,'sqlite_set_result_double');
Result := Result and connectProc(@SQLite_Set_Result_Int ,   'sqlite_set_result_int');
Result := Result and connectProc(@SQLite_Set_Result_String ,'sqlite_set_result_string');
Result := Result and connectProc(@SQLite_Set_Result_Error , 'sqlite_set_result_error');
Result := Result and connectProc(@SQLite_Function_Type ,    'sqlite_function_type');
end
else ShowMessage('sqlite library not loaded!');
end;