Automatische Umschaltung des Keyboardlayouts abschalten

[the-networker]

Habe mein Problem wie folgt gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
ActiveLayout:hkl;
begin
  ActiveLayout:=GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil));
  If ActiveLayout <> GetKeyboardLayout(0) then
    ActivateKeyboardLayout(ActiveLayout, 0);
end;