Форум: "Основная";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Вниз
Язык русский или английский Найти похожие ветки
← →
dj0n © (2005-11-03 16:45) [0]Как отобразить какой язык для ввода у меня включин?
← →
TUser © (2005-11-03 16:46) [1]getkeyboardlayout
← →
dj0n © (2005-11-03 16:51) [2]это что такое?
← →
Amoeba © (2005-11-03 16:53) [3]
> dj0n © (03.11.05 16:51) [2]
> это что такое?
Как что? Функция.
← →
dj0n © (2005-11-03 16:57) [4]а можно более подробное онисание а то я не профи в делфи?! плиз
← →
dj0n © (2005-11-03 17:03) [5]в хелпе нет описания этой функции
← →
Fay © (2005-11-03 17:09) [6]2 dj0n © (03.11.05 17:03) [5]
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinpu t/keyboardinputreference/keyboardinputfunctions/getkeyboardlayout.asp
← →
Fay © (2005-11-03 17:09) [7]Или просто
http://search.microsoft.com/search/results.aspx?qu=GetKeyboardLayout&View=msdn&st=b&c=0&s=1&swc=0
← →
dj0n © (2005-11-03 17:26) [8]функция getkeyboardlayout возвращает число! а какое число русский и какое латинские???
← →
Leonid Troyanovsky © (2005-11-03 17:34) [9]
> dj0n © (03.11.05 17:26) [8]
> функция getkeyboardlayout возвращает число! а какое число
> русский и какое латинские???
var
AklName: array [0..2] of Char;
GetLocaleInfo( LoWord(ahkl),
LOCALE_SABBREVLANGNAME,
AklName,
SizeOf(AklName));
--
Regards, LVT.
← →
dj0n © (2005-11-03 17:45) [10]не работает
← →
Leonid Troyanovsky © (2005-11-03 17:48) [11]
> dj0n © (03.11.05 17:45) [10]
> не работает
Win32Check(GetLocaleInfo(..) <> 0);
ShowMessage(AklName);
--
Regards, LVT.
← →
dj0n © (2005-11-03 18:18) [12]И так не работает
← →
Zeqfreed © (2005-11-03 18:57) [13]dj0n © (03.11.05 18:18) [12]
Я скажу больше! [11] даже не компилируется! Какой ужас! А голова есть? Ну хотя бы чуть-чуть?type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMLangChanged(var Msg : TMessage); message WM_INPUTLANGCHANGE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetActiveLayoutName() : String;
var
buf : array[0..MAX_PATH] of Char;
kl : hKL;
l : Integer;
begin
kl := GetKeyboardLayout(0);
l := GetLocaleInfo(LoWord(kl), LOCALE_SLANGUAGE {LOCALE_SABBREVLANGNAME}, @buf, SizeOf(buf));
if (l > 0) and (l <= SizeOf(buf)) then
Result :=Copy(buf, 1, l)
else
Result := "";
end;
procedure TForm1.WMLangChanged(var Msg : TMessage);
begin
Caption := GetActiveLayoutName;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := GetActiveLayoutName;
end;
Это работает?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.039 c
