Windows Tastatur

[tomkupitz]

Code:

procedure ShowWinKeyboard;
begin
  ShellExecute(0, 'open', 'C:\Program Files\Common Files\Microsoft Shared\Ink\TabTip.exe', nil, nil, SW_SHOWNA);
end;

procedure CloseWinKeyboard;
var KbWnd: THandle;

begin
  KbWnd:=FindWindow('IPTip_Main_Window', nil);

  if KbWnd>0 then
    PostMessage(KbWnd, WM_SYSCOMMAND, SC_CLOSE, 0);
end;