Delphi-PRAXiS - Delphi Wie erkennen, ob physikalische Tastatur vorhanden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Wie erkennen, ob physikalische Tastatur vorhanden (https://www.delphipraxis.net/190761-wie-erkennen-ob-physikalische-tastatur-vorhanden.html)

Wie erkennen, ob physikalische Tastatur vorhanden

Hallo,

ich suche einen Weg, um zu erkennen, ob an dem Rechner, auf dem mein Programm läuft, eine physikalische Tastatur vorhanden ist. Und zwar nicht nur registriert im System, sondern auch ob sie gerade aktiv ist (sprich, ob man darauf gerade schreiben könnte).
Hintergrund der Geschichte: mein Programm verwendet für ein paar Funktionalitäten die Abfrage, ob die Ctrl-Taste gedrückt ist. Wenn ja, dann reagieren die Funktionen leicht anders (also z.B. Aufziehen von Boxen statt vom Ausgangspunkt bis Endpunkt vom Ausgangspunkt als Zentrum mit Größe Abstand Ausgangs-/Endpunkt).
Das Problem ist nun, wenn jemand vor einem reinen Touch-Gerät sitzt und keine Tastatur zur Verfügung hat. Windows On-Screen Tastatur ist dabei keine Option, da das Programm im Vollbild läuft und somit diese nicht erreichbar ist.
In diesem Szenario müßte die Funktionalität also auf einem anderen Wege bereitgestellt werden. Nur wie erkennt man diese Situation?
Generell auf die alternative Lösung ausweichen wäre aber auch nicht gut, da jede Alternative Platz für das Bedienelement braucht, der aber sehr rar ist.

vielen Dank,
Uli

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Stellt ihr die Rechner oder habt ihr keine Kontrolle auf welche Rechner die Software aufgespielt wird?

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Vielleicht hilft die

das weiter (nicht ausprobiert)...

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Zitat:

Zitat von Der schöne Günther (Beitrag 1352638)

Stellt ihr die Rechner oder habt ihr keine Kontrolle auf welche Rechner die Software aufgespielt wird?

leider nicht, das kann irgendein Wald und Wiesen Rechner sein, solange nur XP oder aktueller drauf läuft.

Zitat:

Zitat von Whookie (Beitrag 1352641)

Vielleicht hilft die

das weiter (nicht ausprobiert)...

Danke, das klingt vielversprechend. Werd mir das mal alles durchlesen, vorallem ob es für für klassiche Anwendungen ohne .Net verfügbar ist.

Grüße,
Uli

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Zitat:

Zitat von ULIK (Beitrag 1352642)

..vorallem ob es für für klassiche Anwendungen ohne .Net verfügbar ist.

WMI geht mit Delphi problemlos.

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Und was ist, wenn der Rechner eingebaut ist und die angeschlossene Tastatur nur für Admins irgendwo eingeschlossen ist?

Macht besser irgendwo eine Options ins Programm, wo man das gezielt umstellen kann.

PS: Rechner per Remote gesteuert ... was zählt da? (RDP, TeamViewer, Skype, ...)
Die Tastatur am Host oder am Client.

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Moin,

das stelle ich mir schwierig vor.
Ich habe eine drahtlose Maus, dessen Funkdongle
sich als Maus und Tastatur beim Rechner anmeldet.

AW: Wie erkennen, ob physikalische Tastatur vorhanden

DU kannst doch herausfinden ob es ein Touchscreen gibt, reicht dir das nicht

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Ich habe ein Netbook mit Touchscreen UND Tastatur.
Zusätzlich kann ich OSK.exe (BILDSCHIRMTASTATUR) aufrufen.

Einem Programm muss es gleichgültig sein, woher die Eingaben kommen. Wenn es aktiv ist bekommt es die Eingaben.

Wenn ich auf der Tastatur STRG drücke und loslasse erscheint das Gleiche auf der BILDSCHIRMTASTATUR.
Wenn ich auf der BILDSCHIRMTASTATUR die STRG-Taste drücke, bleibt die Taste gedrückt, bis ich nocheinmal die STRG-Taste drücke - egal wo.

Was hat das jetzt mit dem Ganzbild-Modus zu tun?
Die BILDSCHIRMTASTATUR kann ich doch verschieben, wenn sie stört.
Wenn eine Eingabe gebraucht wird, kommt doch automatisch die BILDSCHIRMTASTATUR, wenn das Betriebssystem keine physikalische Tastatur entdeckt.
Leider kommt nach der frischen Installation des BS automatisch immer die BILDSCHIRMTASTATUR, auch wenn eine physikalische Tastatur vorhanden ist, aber das lässt sich ändern.
Entscheidend ist offensichtlich die Tatsache, ob ein TOUCHSCREEN vorhanden ist.

TABLET-PC?

In neuen DELPHI-Versionen gibt es TTouchKeyboard.

Delphi-Quellcode:

			function GetTouchCapabilities : TTouchCapabilities;

 var ADigitizer : integer;

 begin

 result := [];

 // First check if the system is a TabletPC

 if GetSystemMetrics(SM_TABLETPC) <> 0 then begin

   include(result,tcTabletPC);

   if CheckWin32Version(6,1) then begin // If Windows 7, then we can do additional tests on input type

    ADigitizer := GetSystemMetrics(SM_DIGITIZER);

    if ((ADigitizer and NID_INTEGRATED_TOUCH) <> 0) then include(result,tcIntTouch);

    if ((ADigitizer and NID_EXTERNAL_TOUCH) <> 0) then include(result,tcExtTouch);

    if ((ADigitizer and NID_INTEGRATED_PEN) <> 0) then include(result,tcIntPen);

    if ((ADigitizer and NID_EXTERNAL_PEN) <> 0) then include(result,tcExtPen);

    if ((ADigitizer and NID_MULTI_INPUT) <> 0) then include(result,tcMultiTouch);

    if ((ADigitizer and NID_READY) <> 0) then include(result,tcReady);

   end else begin

    // If not Windows7 and TabletPC detected, we asume that it's ready

    include(result,tcReady);

   end;

 end;

 end;

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Windows hat jetzt sogar 2 Bildschirmtastaturen dabei.

Reagiert dein Programm zur Laufzeit auf Änderungen?
Meine beiden Rechner hängen an einem USB-Switch und der leitet Meine Tastatur, Trackball (quasi die Maus) und bissl mehr dann jeweils an einen der PCs weiter.
Dem anderen PC fehlt dann also mal "kurz" die Tastatur/Maus, was aber nicht heißt, dass der PC sowas nicht hat.

Der PC meiner Mom hat jetzt Touch, was aber nicht bedeutet, dass jemand das oft benutzt.

Mein einer Schlepptop hat 'nen Touchpad, dass sich nicht als "Touch" registriert hat, aber dennoch kann das Touch, wenn das Programm Touch unterstützt und sonst arbeitet es mit einer Maussimulation.

Entweder ein Programm versteht alle einfaben "gleichzeitig", aber Alle reagieren auch immer gleich, egal was sonst noch am PC hängt, oder ...
Wenn sich das Verhalten einer anderen Inputmethode durch eine der Anderen ändert, dann ist das nie gut und sollte nur gezielt durhch den Nutzer umschaltbar sein.

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Zitat:

Zitat von ULIK (Beitrag 1352637)

ich suche einen Weg, um zu erkennen, ob an dem Rechner, auf dem mein Programm läuft, eine physikalische Tastatur vorhanden ist. Und zwar nicht nur registriert im System, sondern auch ob sie gerade aktiv ist (sprich, ob man darauf gerade schreiben könnte).

Das halte ich für unmöglich. Eine "Tastatur" ist eine Hardware, die Tastendrücke an das System sendet, und dafür eine geeignete Schnittstelle (USB,PS2..) nutzt.

Mit den geeigneten Treibern könntest Du feststellen ob z.B. über die PS2-Schnittstelle eine Tastatur physisch am Rechner hängt. Über USB bekommst Du nur ein HI und das kann physisch alles mögliche sein.

Gruß
K-H

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Wenn man einen Touchscreen hat, kann man z.B. MessagEase for Windows nutzen oder selbst nachbauen und in das eigene Programm einbauen.

AW: Wie erkennen, ob physikalische Tastatur vorhanden

Wer will, kann mal die beiden WMI-Abfragen vergleichen, ob etwas Eindeutiges auf eine physikalische Tastatur hinweisst.

Delphi-Quellcode:

			//-----------------------------------------------------------------------------------------------------

//     This code was generated by the Wmi Delphi Code Creator http://theroadtodelphi.wordpress.com

//     Version: 1.8.3.0 

//     LIABILITY DISCLAIMER

//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.

//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,

//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.

//----------------------------------------------------------------------------------------------------

program GetWMI_Info;

{$APPTYPE CONSOLE}

uses

(*  SysUtils, ActiveX, ComObj, Variants;  *)

  System.SysUtils,

  Winapi.ActiveX,

  System.Win.ComObj,

  System.Variants;

function VarToInt(const AVariant: Variant): INT64;// integer;

begin Result := StrToIntDef(Trim(VarToStr(AVariant)), 0); end;

// Funktionen und Verwaltung der logischen Tastatur.

procedure  GetCIM_KeyboardInfo;

const

  WbemUser            ='';

  WbemPassword        ='';

  WbemComputer        ='localhost';

  wbemFlagForwardOnly = $00000020;

var

  FSWbemLocator : OLEVariant;

  FWMIService   : OLEVariant;

  FWbemObjectSet: OLEVariant;

  FWbemObject   : OLEVariant;

  oEnum         : IEnumvariant;

  iValue        : LongWord;

begin;

  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);

  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM CIM_Keyboard','WQL',wbemFlagForwardOnly);

  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;

  while oEnum.Next(1, FWbemObject, iValue) = 0 do

  begin

    Writeln(Format('Availability                   %d',[VarToInt(FWbemObject.Availability)]));// Uint16

    Writeln(Format('Caption                        %s',[VarToStr(FWbemObject.Caption)]));// String

    Writeln(Format('ConfigManagerErrorCode         %d',[VarToInt(FWbemObject.ConfigManagerErrorCode)]));// Uint32

    Writeln(Format('ConfigManagerUserConfig        %s',[VarToStr(FWbemObject.ConfigManagerUserConfig)]));// Boolean

    Writeln(Format('CreationClassName              %s',[VarToStr(FWbemObject.CreationClassName)]));// String

    Writeln(Format('Description                    %s',[VarToStr(FWbemObject.Description)]));// String

    Writeln(Format('DeviceID                       %s',[VarToStr(FWbemObject.DeviceID)]));// String

    Writeln(Format('ErrorCleared                   %s',[VarToStr(FWbemObject.ErrorCleared)]));// Boolean

    Writeln(Format('ErrorDescription               %s',[VarToStr(FWbemObject.ErrorDescription)]));// String

    Writeln(Format('InstallDate                    %s',[VarToStr(FWbemObject.InstallDate)]));// Datetime

    Writeln(Format('IsLocked                       %s',[VarToStr(FWbemObject.IsLocked)]));// Boolean

    Writeln(Format('LastErrorCode                  %d',[VarToInt(FWbemObject.LastErrorCode)]));// Uint32

    Writeln(Format('Layout                         %s',[VarToStr(FWbemObject.Layout)]));// String

    Writeln(Format('Name                           %s',[VarToStr(FWbemObject.Name)]));// String

    Writeln(Format('NumberOfFunctionKeys           %d',[VarToInt(FWbemObject.NumberOfFunctionKeys)]));// Uint16

    Writeln(Format('Password                       %d',[VarToInt(FWbemObject.Password)]));// Uint16

    Writeln(Format('PNPDeviceID                    %s',[VarToStr(FWbemObject.PNPDeviceID)]));// String

    Writeln(Format('PowerManagementCapabilities    %d',[VarToInt(FWbemObject.PowerManagementCapabilities)]));// Array of Uint16

    Writeln(Format('PowerManagementSupported       %s',[VarToStr(FWbemObject.PowerManagementSupported)]));// Boolean

    Writeln(Format('Status                         %s',[VarToStr(FWbemObject.Status)]));// String

    Writeln(Format('StatusInfo                     %d',[VarToInt(FWbemObject.StatusInfo)]));// Uint16

    Writeln(Format('SystemCreationClassName        %s',[VarToStr(FWbemObject.SystemCreationClassName)]));// String

    Writeln(Format('SystemName                     %s',[VarToStr(FWbemObject.SystemName)]));// String

    Writeln('');

    FWbemObject:=Unassigned;

  end;

end;

procedure  GetWin32_KeyboardInfo;

const

  WbemUser            ='';

  WbemPassword        ='';

  WbemComputer        ='localhost';

  wbemFlagForwardOnly = $00000020;

var

  FSWbemLocator : OLEVariant;

  FWMIService   : OLEVariant;

  FWbemObjectSet: OLEVariant;

  FWbemObject   : OLEVariant;

  oEnum         : IEnumvariant;

  iValue        : LongWord;

begin;

  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);

  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_Keyboard','WQL',wbemFlagForwardOnly);

  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;

  while oEnum.Next(1, FWbemObject, iValue) = 0 do

  begin

    Writeln(Format('Availability                   %d',[VarToInt(FWbemObject.Availability)]));// Uint16

    Writeln(Format('Caption                        %s',[VarToStr(FWbemObject.Caption)]));// String

    Writeln(Format('ConfigManagerErrorCode         %d',[VarToInt(FWbemObject.ConfigManagerErrorCode)]));// Uint32

    Writeln(Format('ConfigManagerUserConfig        %s',[VarToStr(FWbemObject.ConfigManagerUserConfig)]));// Boolean

    Writeln(Format('CreationClassName              %s',[VarToStr(FWbemObject.CreationClassName)]));// String

    Writeln(Format('Description                    %s',[VarToStr(FWbemObject.Description)]));// String

    Writeln(Format('DeviceID                       %s',[VarToStr(FWbemObject.DeviceID)]));// String

    Writeln(Format('ErrorCleared                   %s',[VarToStr(FWbemObject.ErrorCleared)]));// Boolean

    Writeln(Format('ErrorDescription               %s',[VarToStr(FWbemObject.ErrorDescription)]));// String

    Writeln(Format('InstallDate                    %s',[VarToStr(FWbemObject.InstallDate)]));// Datetime

    Writeln(Format('IsLocked                       %s',[VarToStr(FWbemObject.IsLocked)]));// Boolean

    Writeln(Format('LastErrorCode                  %d',[VarToInt(FWbemObject.LastErrorCode)]));// Uint32

    Writeln(Format('Layout                         %s',[VarToStr(FWbemObject.Layout)]));// String

    Writeln(Format('Name                           %s',[VarToStr(FWbemObject.Name)]));// String

    Writeln(Format('NumberOfFunctionKeys           %d',[VarToInt(FWbemObject.NumberOfFunctionKeys)]));// Uint16

    Writeln(Format('Password                       %d',[VarToInt(FWbemObject.Password)]));// Uint16

    Writeln(Format('PNPDeviceID                    %s',[VarToStr(FWbemObject.PNPDeviceID)]));// String

    Writeln(Format('PowerManagementCapabilities    %d',[VarToInt(FWbemObject.PowerManagementCapabilities)]));// Array of Uint16

    Writeln(Format('PowerManagementSupported       %s',[VarToStr(FWbemObject.PowerManagementSupported)]));// Boolean

    Writeln(Format('Status                         %s',[VarToStr(FWbemObject.Status)]));// String

    Writeln(Format('StatusInfo                     %d',[VarToInt(FWbemObject.StatusInfo)]));// Uint16

    Writeln(Format('SystemCreationClassName        %s',[VarToStr(FWbemObject.SystemCreationClassName)]));// String

    Writeln(Format('SystemName                     %s',[VarToStr(FWbemObject.SystemName)]));// String

    Writeln('');

    FWbemObject:=Unassigned;

  end;

end;

begin

 try

    CoInitialize(nil);

    try

      GetCIM_KeyboardInfo;

      WriteLn('----------------------------------------------------------------');

      GetWin32_KeyboardInfo;

    finally

      CoUninitialize;

    end;

 except

    on E:EOleException do

        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 

    on E:Exception do

        Writeln(E.Classname, ':', E.Message);

 end;

 Writeln('Press Enter to exit');

 Readln;      

end.