Procedure changeLang(LangCode : LongWord);
Begin
ActivateKeyBoardLayOut(KLF_ACTIVATE, LangCode);
End;
 
//Bazı Dil Kodları;
 
// 00000402 = "Bulgarian"
// 0000041a = "Croatian"
// 00000405 = "Czech"
// 00000406 = "Danish"
// 00000813 = "Dutch (Belgian)"
// 00000413 = "Dutch (Standard)"
// 00000409 = "English (American)"
// 00000c09 = "English (Australian)"
// 00000809 = "English (British)"
// 00001009 = "English (Canadian)"
// 00001809 = "English (Irish)"
// 00001409 = "English (New Zealand)"
// 0000040b = "Finnish"
// 0000080c = "French (Belgian)"
// 00000c0c = "French (Canadian)"
// 0000040c = "French (Standard)"
// 0000100c = "French (Swiss)"
// 00000c07 = "German (Austrian)"
// 00000407 = "German (Standard)"
// 00000807 = "German (Swiss)"
// 00000408 = "Greek"
// 0000040d = "Hebrew"
// 0000040e = "Hungarian"
// 0000040f = "Icelandic"
// 00000410 = "Italian (Standard)"
// 00000810 = "Italian (Swiss)"
// 00000414 = "Norwegian (Bokmal)"
// 00000814 = "Norwegian (Nynorsk)"
// 00000415 = "Polish"
// 00000416 = "Portuguese (Brazil)"
// 00000816 = "Portuguese (Portugal)"
// 00000418 = "Romanian"
// 00000419 = "Russian"
// 0000041b = "Slovak"
// 00000424 = "Slovenian"
// 0000080a = "Spanish (Mexican)"
// 00000c0a = "Spanish (Modern Sort)"
// 0000040a = "Spanish (Traditional Sort)"
// 0000041d = "Swedish"
// 0000041f = "Turkish"
 
//Kullanımı
procedure TForm12.btn1Click(Sender: TObject);
begin
changeLang(00000409);
end;