Форум сайта python.su
Беру свои слова назад почти все работает, только вместо текущего языка ввода программа выдает язык ввода по умолчанию.
Код в dll следующий:
function GetKeyIdMy() : integer; export;
begin
GetKeyIdMy:=getkeyboardlayout(0);
end;
Офлайн
Dock
посмотрите тут, может поможет http://www.codenet.ru/progr/delphi/stat/internat.php
Офлайн