Promena tastature u language bar-u ?

[ Brkic @ 24.09.2009. 20:42 ] @

Treba mi da mogu da promenim tastaturu pri pokretanju programa na Serbian (Latin)
Nasao sam cod ali radi samo sa Nemackim i engleskim

To change current language, use LoadKeyboardLayout function.
For example, first parameter 0x0407 is German (standard), 0x0409 is English (U.S.)

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout('00000407', KLF_ACTIVATE);
end;

za srpski je 0x081A Serbian (Latin)
ali nece da radi,prebaci na Engleski.
Kada sam probao German,pojavio mi se DE u language bar-u iako ga nisam imao instaliranog i lepo radi,tj prebacuje na DE

[ dekys @ 24.09.2009. 21:00 ] @

hoce li ovako ?

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout('0000081a', KLF_ACTIVATE);
end;

radi pod win7 i delphi2010

[ Brkic @ 25.09.2009. 07:43 ] @

Sada radi,problem je bio 1 nuli vise,
ja sam u kod ubacio 081A a treba samo 81A i zato je prebacivao na Engleski.

Hvala na pomoći.