Tastaturlayout ändern???

[lima]

Ich hab das jetzt hier soweit.

Delphi-Quellcode:

procedure opencpl(cpl:string);
begin
shellexecute(application.handle,'open','rundll32.exe',
pchar('shell32.dll,Control_RunDLL'+#32+cpl),nil,sw_shownormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
s:='MAIN.CPL @1';
opencpl(s);
end;

Meinst Du das???