TOPIC:

library my_library;

uses LCLTranslator;

resourcestring
  LibraryDescription = 'My test library';

function GetLibDesc : string; cdecl; export;
begin
  Result := LibraryDescription;
end;

exports
  GetLibDesc;

initialization
  // How to do translate resourcestring to 'ru' ?!
  SetDefaultLang(''); // no effect!
end.

var
  S : string;

initialization
  S := GetModuleName(hInstance);
  S := ExtractFilePath(S) + 'lang\' + ChangeFileExt(ExtractFileName(S),'.%s.mo');
  TranslateResourceStrings(S);