aspellheadersdyn.pas

类似QQ的源码程序

      @aspell_mutable_container_to_mutable_container := GetProcAddress(AspellHandle, 'aspell_mutable_container_to_mutable_container');
      @aspell_key_info_enumeration_at_end            := GetProcAddress(AspellHandle, 'aspell_key_info_enumeration_at_end');
      @aspell_key_info_enumeration_next              := GetProcAddress(AspellHandle, 'aspell_key_info_enumeration_next');
      @delete_aspell_key_info_enumeration            := GetProcAddress(AspellHandle, 'delete_aspell_key_info_enumeration');
      @aspell_key_info_enumeration_clone             := GetProcAddress(AspellHandle, 'aspell_key_info_enumeration_clone');
      @aspell_key_info_enumeration_assign            := GetProcAddress(AspellHandle, 'aspell_key_info_enumeration_assign');
      @new_aspell_config                             := GetProcAddress(AspellHandle, 'new_aspell_config');
      @delete_aspell_config                          := GetProcAddress(AspellHandle, 'delete_aspell_config');
      @aspell_config_clone                           := GetProcAddress(AspellHandle, 'aspell_config_clone');
      @aspell_config_assign                          := GetProcAddress(AspellHandle, 'aspell_config_assign');
      @aspell_config_error_number                    := GetProcAddress(AspellHandle, 'aspell_config_error_number');
      @aspell_config_error_message                   := GetProcAddress(AspellHandle, 'aspell_config_error_message');
      @aspell_config_error                           := GetProcAddress(AspellHandle, 'aspell_config_error');
      @aspell_config_set_extra                       := GetProcAddress(AspellHandle, 'aspell_config_set_extra');
      @aspell_config_keyinfo                         := GetProcAddress(AspellHandle, 'aspell_config_keyinfo');
      @aspell_config_possible_elements               := GetProcAddress(AspellHandle, 'aspell_config_possible_elements');
      @aspell_config_get_default                     := GetProcAddress(AspellHandle, 'aspell_config_get_default');
      @aspell_config_elements                        := GetProcAddress(AspellHandle, 'aspell_config_elements');
      @aspell_config_replace                         := GetProcAddress(AspellHandle, 'aspell_config_replace');
      @aspell_config_remove                          := GetProcAddress(AspellHandle, 'aspell_config_remove');
      @aspell_config_have                            := GetProcAddress(AspellHandle, 'aspell_config_have');
      @aspell_config_retrieve                        := GetProcAddress(AspellHandle, 'aspell_config_retrieve');
      @aspell_config_retrieve_list                   := GetProcAddress(AspellHandle, 'aspell_config_retrieve_list');
      @aspell_config_retrieve_bool                   := GetProcAddress(AspellHandle, 'aspell_config_retrieve_bool');
      @aspell_config_retrieve_int                    := GetProcAddress(AspellHandle, 'aspell_config_retrieve_int');
      @aspell_error_number                           := GetProcAddress(AspellHandle, 'aspell_error_number');
      @aspell_error_message                          := GetProcAddress(AspellHandle, 'aspell_error_message');
      @aspell_error                                  := GetProcAddress(AspellHandle, 'aspell_error');
      @delete_aspell_can_have_error                  := GetProcAddress(AspellHandle, 'delete_aspell_can_have_error');
      @new_aspell_speller                            := GetProcAddress(AspellHandle, 'new_aspell_speller');
      @to_aspell_speller                             := GetProcAddress(AspellHandle, 'to_aspell_speller');
      @delete_aspell_speller                         := GetProcAddress(AspellHandle, 'delete_aspell_speller');
      @aspell_speller_error_number                   := GetProcAddress(AspellHandle, 'aspell_speller_error_number');
      @aspell_speller_error_message                  := GetProcAddress(AspellHandle, 'aspell_speller_error_message');
      @aspell_speller_error                          := GetProcAddress(AspellHandle, 'aspell_speller_error');
      @aspell_speller_config                         := GetProcAddress(AspellHandle, 'aspell_speller_config');
      @aspell_speller_check                          := GetProcAddress(AspellHandle, 'aspell_speller_check');
      @aspell_speller_add_to_personal                := GetProcAddress(AspellHandle, 'aspell_speller_add_to_personal');
      @aspell_speller_add_to_session                 := GetProcAddress(AspellHandle, 'aspell_speller_add_to_session');
      @aspell_speller_personal_word_list             := GetProcAddress(AspellHandle, 'aspell_speller_personal_word_list');
      @aspell_speller_session_word_list              := GetProcAddress(AspellHandle, 'aspell_speller_session_word_list');
      @aspell_speller_main_word_list                 := GetProcAddress(AspellHandle, 'aspell_speller_main_word_list');
      @aspell_speller_save_all_word_lists            := GetProcAddress(AspellHandle, 'aspell_speller_save_all_word_lists');
      @aspell_speller_clear_session                  := GetProcAddress(AspellHandle, 'aspell_speller_clear_session');
      @aspell_speller_suggest                        := GetProcAddress(AspellHandle, 'aspell_speller_suggest');
      @aspell_speller_store_replacement              := GetProcAddress(AspellHandle, 'aspell_speller_store_replacement');
      @delete_aspell_filter                          := GetProcAddress(AspellHandle, 'delete_aspell_filter');
      @aspell_filter_error_number                    := GetProcAddress(AspellHandle, 'aspell_filter_error_number');
      @aspell_filter_error_message                   := GetProcAddress(AspellHandle, 'aspell_filter_error_message');
      @aspell_filter_error                           := GetProcAddress(AspellHandle, 'aspell_filter_error');
      @to_aspell_filter                              := GetProcAddress(AspellHandle, 'to_aspell_filter');
      @delete_aspell_document_checker                := GetProcAddress(AspellHandle, 'delete_aspell_document_checker');
      @aspell_document_checker_error_number          := GetProcAddress(AspellHandle, 'aspell_document_checker_error_number');
      @aspell_document_checker_error_message         := GetProcAddress(AspellHandle, 'aspell_document_checker_error_message');
      @aspell_document_checker_error                 := GetProcAddress(AspellHandle, 'aspell_document_checker_error');
      @new_aspell_document_checker                   := GetProcAddress(AspellHandle, 'new_aspell_document_checker');
      @to_aspell_document_checker                    := GetProcAddress(AspellHandle, 'to_aspell_document_checker');
      @aspell_document_checker_reset                 := GetProcAddress(AspellHandle, 'aspell_document_checker_reset');
      @aspell_document_checker_process               := GetProcAddress(AspellHandle, 'aspell_document_checker_process');
      @aspell_document_checker_next_misspelling      := GetProcAddress(AspellHandle, 'aspell_document_checker_next_misspelling');
      @aspell_document_checker_filter                := GetProcAddress(AspellHandle, 'aspell_document_checker_filter');
      @aspell_word_list_empty                        := GetProcAddress(AspellHandle, 'aspell_word_list_empty');
      @aspell_word_list_size                         := GetProcAddress(AspellHandle, 'aspell_word_list_size');
      @aspell_word_list_elements                     := GetProcAddress(AspellHandle, 'aspell_word_list_elements');
      @delete_aspell_string_enumeration              := GetProcAddress(AspellHandle, 'delete_aspell_string_enumeration');
      @aspell_string_enumeration_clone               := GetProcAddress(AspellHandle, 'aspell_string_enumeration_clone');
      @aspell_string_enumeration_assign              := GetProcAddress(AspellHandle, 'aspell_string_enumeration_assign');
      @aspell_string_enumeration_at_end              := GetProcAddress(AspellHandle, 'aspell_string_enumeration_at_end');
      @aspell_string_enumeration_next                := GetProcAddress(AspellHandle, 'aspell_string_enumeration_next');
      @get_aspell_module_info_list                   := GetProcAddress(AspellHandle, 'get_aspell_module_info_list');
      @aspell_module_info_list_empty                 := GetProcAddress(AspellHandle, 'aspell_module_info_list_empty');
      @aspell_module_info_list_size                  := GetProcAddress(AspellHandle, 'aspell_module_info_list_size');
      @aspell_module_info_list_elements              := GetProcAddress(AspellHandle, 'aspell_module_info_list_elements');
      @get_aspell_dict_info_list                     := GetProcAddress(AspellHandle, 'get_aspell_dict_info_list');
      @aspell_dict_info_list_empty                   := GetProcAddress(AspellHandle, 'aspell_dict_info_list_empty');
      @aspell_dict_info_list_size                    := GetProcAddress(AspellHandle, 'aspell_dict_info_list_size');
      @aspell_dict_info_list_elements                := GetProcAddress(AspellHandle, 'aspell_dict_info_list_elements');
      @aspell_module_info_enumeration_at_end         := GetProcAddress(AspellHandle, 'aspell_module_info_enumeration_at_end');
      @aspell_module_info_enumeration_next           := GetProcAddress(AspellHandle, 'aspell_module_info_enumeration_next');
      @delete_aspell_module_info_enumeration         := GetProcAddress(AspellHandle, 'delete_aspell_module_info_enumeration');
      @aspell_module_info_enumeration_clone          := GetProcAddress(AspellHandle, 'aspell_module_info_enumeration_clone');
      @aspell_module_info_enumeration_assign         := GetProcAddress(AspellHandle, 'aspell_module_info_enumeration_assign');
      @aspell_dict_info_enumeration_at_end           := GetProcAddress(AspellHandle, 'aspell_dict_info_enumeration_at_end');
      @aspell_dict_info_enumeration_next             := GetProcAddress(AspellHandle, 'aspell_dict_info_enumeration_next');
      @delete_aspell_dict_info_enumeration           := GetProcAddress(AspellHandle, 'delete_aspell_dict_info_enumeration');
      @aspell_dict_info_enumeration_clone            := GetProcAddress(AspellHandle, 'aspell_dict_info_enumeration_clone');
      @aspell_dict_info_enumeration_assign           := GetProcAddress(AspellHandle, 'aspell_dict_info_enumeration_assign');
      @new_aspell_string_list                        := GetProcAddress(AspellHandle, 'new_aspell_string_list');
      @aspell_string_list_empty                      := GetProcAddress(AspellHandle, 'aspell_string_list_empty');
      @aspell_string_list_size                       := GetProcAddress(AspellHandle, 'aspell_string_list_size');
      @aspell_string_list_elements                   := GetProcAddress(AspellHandle, 'aspell_string_list_elements');
      @aspell_string_list_add                        := GetProcAddress(AspellHandle, 'aspell_string_list_add');
      @aspell_string_list_remove                     := GetProcAddress(AspellHandle, 'aspell_string_list_remove');
      @aspell_string_list_clear                      := GetProcAddress(AspellHandle, 'aspell_string_list_clear');
      @aspell_string_list_to_mutable_container       := GetProcAddress(AspellHandle, 'aspell_string_list_to_mutable_container');
      @delete_aspell_string_list                     := GetProcAddress(AspellHandle, 'delete_aspell_string_list');
      @aspell_string_list_clone                      := GetProcAddress(AspellHandle, 'aspell_string_list_clone');
      @aspell_string_list_assign                     := GetProcAddress(AspellHandle, 'aspell_string_list_assign');
      @new_aspell_string_map                         := GetProcAddress(AspellHandle, 'new_aspell_string_map');
      @aspell_string_map_add                         := GetProcAddress(AspellHandle, 'aspell_string_map_add');
      @aspell_string_map_remove                      := GetProcAddress(AspellHandle, 'aspell_string_map_remove');
      @aspell_string_map_clear                       := GetProcAddress(AspellHandle, 'aspell_string_map_clear');
      @aspell_string_map_to_mutable_container        := GetProcAddress(AspellHandle, 'aspell_string_map_to_mutable_container');
      @delete_aspell_string_map                      := GetProcAddress(AspellHandle, 'delete_aspell_string_map');
      @aspell_string_map_clone                       := GetProcAddress(AspellHandle, 'aspell_string_map_clone');
      @aspell_string_map_assign                      := GetProcAddress(AspellHandle, 'aspell_string_map_assign');
      @aspell_string_map_empty                       := GetProcAddress(AspellHandle, 'aspell_string_map_empty');
      @aspell_string_map_size                        := GetProcAddress(AspellHandle, 'aspell_string_map_size');
      @aspell_string_map_elements                    := GetProcAddress(AspellHandle, 'aspell_string_map_elements');
      @aspell_string_map_insert                      := GetProcAddress(AspellHandle, 'aspell_string_map_insert');
      @aspell_string_map_replace                     := GetProcAddress(AspellHandle, 'aspell_string_map_replace');
      @aspell_string_map_lookup                      := GetProcAddress(AspellHandle, 'aspell_string_map_lookup');
      @aspell_string_pair_enumeration_at_end         := GetProcAddress(AspellHandle, 'aspell_string_pair_enumeration_at_end');
      @aspell_string_pair_enumeration_next           := GetProcAddress(AspellHandle, 'aspell_string_pair_enumeration_next');
      @delete_aspell_string_pair_enumeration         := GetProcAddress(AspellHandle, 'delete_aspell_string_pair_enumeration');
      @aspell_string_pair_enumeration_clone          := GetProcAddress(AspellHandle, 'aspell_string_pair_enumeration_clone');
      @aspell_string_pair_enumeration_assign         := GetProcAddress(AspellHandle, 'aspell_string_pair_enumeration_assign');

      aerror_other                       := GetProcAddress(AspellHandle, 'aerror_other');
      aerror_operation_not_supported     := GetProcAddress(AspellHandle, 'aerror_operation_not_supported');
        aerror_cant_copy                 := GetProcAddress(AspellHandle, 'aerror_cant_copy');
      aerror_file                        := GetProcAddress(AspellHandle, 'aerror_file');
        aerror_cant_open_file            := GetProcAddress(AspellHandle, 'aerror_cant_open_file');
          aerror_cant_read_file          := GetProcAddress(AspellHandle, 'aerror_cant_read_file');
          aerror_cant_write_file         := GetProcAddress(AspellHandle, 'aerror_cant_write_file');
        aerror_invalid_name              := GetProcAddress(AspellHandle, 'aerror_invalid_name');
        aerror_bad_file_format           := GetProcAddress(AspellHandle, 'aerror_bad_file_format');
      aerror_dir                         := GetProcAddress(AspellHandle, 'aerror_dir');
        aerror_cant_read_dir             := GetProcAddress(AspellHandle, 'aerror_cant_read_dir');
      aerror_config                      := GetProcAddress(AspellHandle, 'aerror_config');
        aerror_unknown_key               := GetProcAddress(AspellHandle, 'aerror_unknown_key');
        aerror_cant_change_value         := GetProcAddress(AspellHandle, 'aerror_cant_change_value');
        aerror_bad_key                   := GetProcAddress(AspellHandle, 'aerror_bad_key');
        aerror_bad_value                 := GetProcAddress(AspellHandle, 'aerror_bad_value');
        aerror_duplicate                 := GetProcAddress(AspellHandle, 'aerror_duplicate');
      aerror_language_related            := GetProcAddress(AspellHandle, 'aerror_language_related');
        aerror_unknown_language          := GetProcAddress(AspellHandle, 'aerror_unknown_language');
        aerror_unknown_soundslike        := GetProcAddress(AspellHandle, 'aerror_unknown_soundslike');
        aerror_language_not_supported    := GetProcAddress(AspellHandle, 'aerror_language_not_supported');
        aerror_no_wordlist_for_lang      := GetProcAddress(AspellHandle, 'aerror_no_wordlist_for_lang');
        aerror_mismatched_language       := GetProcAddress(AspellHandle, 'aerror_mismatched_language');
      aerror_encoding                    := GetProcAddress(AspellHandle, 'aerror_encoding');
        aerror_unknown_encoding          := GetProcAddress(AspellHandle, 'aerror_unknown_encoding');
        aerror_encoding_not_supported    := GetProcAddress(AspellHandle, 'aerror_encoding_not_supported');
        aerror_conversion_not_supported  := GetProcAddress(AspellHandle, 'aerror_conversion_not_supported');
      aerror_pipe                        := GetProcAddress(AspellHandle, 'aerror_pipe');
        aerror_cant_create_pipe          := GetProcAddress(AspellHandle, 'aerror_cant_create_pipe');
        aerror_process_died              := GetProcAddress(AspellHandle, 'aerror_process_died');
      aerror_bad_input                   := GetProcAddress(AspellHandle, 'aerror_bad_input');
        aerror_invalid_word              := GetProcAddress(AspellHandle, 'aerror_invalid_word');
        aerror_word_list_flags           := GetProcAddress(AspellHandle, 'aerror_word_list_flags');
          aerror_invalid_flag            := GetProcAddress(AspellHandle, 'aerror_invalid_flag');
          aerror_conflicting_flags       := GetProcAddress(AspellHandle, 'aerror_conflicting_flags');
    except
      exit;
    end;
    Result := true;
  end; // LinkFunctions
  // LoadAspell
begin
  if dllname = ''
  then
  begin
    reg:=TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('\SOFTWARE\Aspell', False)
    then
    begin
      str(reg.ReadInteger('AspellVersion'), sver);
      dllname := reg.ReadString('Path') + '\aspell-' + sver + '.dll';
      reg.CloseKey;
      reg.Free;
    end
    else dllname := ASPELLDLL;
  end;

  AspellHandle := LoadLibrary(PChar(dllname));
  if AspellHandle <> 0
  then Result := LinkFunctions
  else Result := false;
end;

end.