Tastatur beschreiben

[Christian Seehase]

Moin REB1806,

mangels entsprechender Switchbox kann ich das jetzt nicht ausprobieren, aber versuch's mal damit:

Code:

procedure SwitchMachine(const p_cMachine : Char);

var
  hWindow : DWORD;

begin
  hWindow := GetDesktopWindow;
  if hWindow = 0 then
  begin
    exit;
  end;
  SendMessage(hWindow,WM_KEYDOWN,VK_LMENU,0);
  SendMessage(hWindow,WM_KEYDOWN,VK_CONTROL,0);
  SendMessage(hWindow,WM_KEYDOWN,VK_SHIFT,0);
  SendMessage(hWindow,WM_KEYDOWN,ord(p_cMachine),0);
  SendMessage(hWindow,WM_KEYUP,ord(p_cMachine),$C0000000);
  SendMessage(hWindow,WM_KEYUP,VK_SHIFT,$C0000000);
  SendMessage(hWindow,WM_KEYUP,VK_CONTROL,$C0000000);
  SendMessage(hWindow,WM_KEYUP,VK_LMENU,$C0000000);
end;