Automatische Umschaltung des Keyboardlayouts abschalten

[the-networker]

Wenn ich mehrere Eingabegebietsschema geladen habe, zb. Deutsch(Deutschland) und
Englisch(Großbritannien) wobei Englisch(Großbritannien) aktiv ist,
wird wenn ich mein mit Delphi 7 compiliertes Programm lade immer nach
Deutsch(Deutschland) umgeschaltet. Läßt sich dieses Verhalten ändern?
Ich möchte gerne beim Programmstart das
aktive Keyboardlayout behalten und eventuell erst später umschalten.

mfg
Uwe

[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;