SendInputHelper

SendInputhelper

SendInputhelper เป็นหน่วยสำหรับ Delphi ที่มีคลาสสำหรับการใช้งานที่ง่ายและปลอดภัยสำหรับ SendInput-API ของ Windows ด้วยมันคุณสามารถผ่านตัวอักษร, สตริง, "shift" -keys และทางลัดเป็นจังหวะแป้นพิมพ์ปกติ

ตัวอย่าง

 uses
  ..., SendInputHelper;

procedure TForm1.Button1Click (Sender: TObject);
var
  SIH: TSendInputHelper;
begin
  SIH := TSendInputHelper.Create;
  try
    // Start command shell
    SIH.AddShortCut([ssWin], ' r ' ); // Win+R
    SIH.AddDelay( 100 );
    SIH.AddText( ' cmd ' , True); // Second parameter True means AppendReturn
    SIH.AddDelay( 500 );

    SIH.AddText( ' ping google.de ' , True); // Perform a ping.

    SIH.Flush; // Isn't it easy?
  finally
    SIH.Free;
  end ;
end ;