SendInputHelper - Ein Wrapper, der den Umgang mit SendInput vereinfacht

[PeterPanino]

Verbesserung: SendInputHelper-Methoden, die kein TShiftState als Parameter übergeben, können von außen direkt über die Objekt-Variable SIH aufgerufen werden. Deshalb muss die Objekt-Variable SIH im Interface-Teil deklariert werden!

Delphi-Quellcode:

unit SIHWorker;

interface

uses
  SendInputHelper;

procedure SendShortCutChar(DummyShiftState: Integer; ShortChar: Char);

var
  SIH: TSendInputHelper;

implementation

procedure SendShortCutChar(DummyShiftState: Integer; ShortChar: Char);
begin
  case DummyShiftState of
    1:
      SIH.AddShortCut([ssShift], ShortChar);
    2:
      SIH.AddShortCut([ssCtrl], ShortChar);
    3:
      SIH.AddShortCut([ssAlt], ShortChar);
  end;
  SIH.Flush;
end;

(*
SendInputHelper-Methoden, die kein TShiftState als Parameter übergeben,
können von außen direkt über die Objekt-Variable SIH aufgerufen werden.
Deshalb muss die Objekt-Variable SIH im Interface-Teil deklariert werden!
*)

initialization

SIH := TSendInputHelper.Create;

finalization

SIH.Free;

end.