[Sharky]

Здрасьте Форумяне !
у меня такая проблема :
Пишу я кароче такую прогу которая должна показывать раскладку клавиатуры "Русский или Английский " , я делаю это с компонентом tray icon тоисть этот трей икон показывает мне в трее какой язык стоит как и у винды в трее . Вот сам код который меняет язык :

procedure TForm1.Button1Click(Sender: TObject);
begin
ActivateKeyboardLayout(HKL_NEXT, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout('0000041 9', 0), 0);

end;
Я бы хотел что бы это влияло на все приложения которые я запустил
а эта прога меняет только в нутри себя язык!
помогите люди добрые !