Как переключить клавиатуру на португальский (Португалия)?

[limansky]

При использовании
LoadKeyboardLayout('00000416',0)
получаю португальский (Бразилия)
Как получить португальский (Португалия)?

[GunSmoker]

Вы можете объяснить, как можно найти 00000416, но не найти это?

[limansky]

Сообщение от GunSmoker

Вы можете объяснить, как можно найти 00000416, но не найти это?

Спасибо, сделал. Код 816
Я, собственно говоря не программист. Лишь делаю кое-что для изучения английского:
http://rutracker.org/forum/viewtopic.php?t=3524325
А тут попросили сделать тоже самое для португальского.
Спасибо ещё раз.

[GunSmoker]

Использовать жёстко зашитые константы не очень хорошо.

Вот так правильнее:

var
  LanguageID: LANGID;
  KLID: Cardinal;
  KLIDStr: String;
begin
  LanguageID := MAKELANGID(LANG_PORTUGUESE, SUBLANG_PORTUGUESE);
  KLID       := MakeLong(LanguageID, 0);
  KLIDStr    := IntToHex(KLID, SizeOf(KLID) * 2);

  if LoadKeyboardLayout(PChar(KLIDStr), 0) <> 0 then
    // ...
end;

На случай, если в вашей Delphi нет определений:

type
  LANGID = Word;

const
  LANG_PORTUGUESE                      = $16;
  SUBLANG_PORTUGUESE                   = $02;    { Portuguese }
  SUBLANG_PORTUGUESE_BRAZILIAN         = $01;    { Portuguese (Brazilian) }

function MAKELANGID(p, s: WORD): WORD;
begin
  Result := WORD(s shl 10) or p;
end;

function MakeLong(A, B: Word): Longint;
begin
  Result := A or B shl 16;
end;

[limansky]

Спасибо. Постараюсь переделать процедуру переключений языков согласно образцу.
А может Вы что-то посоветуете и по такому поводу...
В прогах мне приходится использовать wav-файлы, так как с MP3 происходят неприятные вещи - часто пропадает начало звучания оцифрованных фраз и вообще как попало. С wav такого не происходит - как оцифровал фразу - так и звучит в программе.
Но хотелось бы уменьшить вес программ...

[GunSmoker]

Ну, с MP3 тоже такое не происходит.

Если происходит - верный признак того, что ты что-то делаешь неправильно. Что именно - не видя кода, сказать невозможно.

В абстрактном вакууме MP3 тут ни при чём.

Для проигрывания MP3 достаточно удобно подходит библиотека BASS.

[limansky]

код типа такого:
MediaPlayer.FileName:='Sound.MP3';
MediaPlayer.Open;
MediaPlayer.StartPos:=SPos;
MediaPLayer.EndPos:=EPos;
MediaPlayer.Play;
Так вот - при FileName='Sound.wav' - всё ок.
Но при MP3 происходят выше указанные глюки.
Хотя есть сообщения, что у некоторых в их компах всё работает нормально с МР3.
Да, эту процедуру я вызываю по клавише ПРОБЕЛ. Может как-то с этим связано?

[GunSmoker]

Я не имею опыта работы с TMediaPlayer. Рекомендую задать этот впорос в отдельной теме, чтобы кто-то другой мог ответить.

P.S. Что-то мне подсказывает, что ожидать воспроизведения сжатого звука (с использованием кодека) от TMediaPlayer может быть несколько наивным. Могу ошибаться, конечно.

[limansky]

Таки вы отправляете меня разбираться с BASS? Правильно понимаю?
А могу я набраться наглости и попросить вас написать точно такую же процедуру используя BASS?
Я действительно полный чайник в этих вопросах. Если можно, пожалуйста.
Слова типа кодек меня просто пугают.
Мне нужно только зацепиться. Понять основную идею. Дальше разберусь сам.

[GunSmoker]

Я отправляю вас создать вопрос по TMediaPlayer.

Но, таки да, есть два пути: разбираться с TMediaPlayer или использовать BASS. Я не могу говорить за первый, но зато могу сказать, что со вторым проблем нет.