[cadil]

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

я же написал:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  buf: array [0..$ff] of Char;
begin
  GetKeyboardLayoutName(buf);
  Edit1.Text:=StrPas(buf);
end;

если вернет (т.е. в Edit1.Text будет):
00000409 - значит en
00000419 - значит ru

Спасибо за помощь. Элегантное решение! Единственное - на en у меня высвечивается 00020409 вместо 00000419.

Код:

  if ((StrPas(buf)= '00020409') or (StrPas(buf)= '00000409')) then LabelK.Caption:='EN';

Какие еще варианты надо предусмотреть? Программа будет установлена на других компьтерах.