شبیه سازی فشار کلید

[mbshareat]

چرا نمی تونم فشار کلید رو در نوت پد شبیه سازی کنم؟

  private

    { Private declarations }

    Procedure WMHotkey( Var msg: TWMHotkey ) ;message WM_HOTKEY;



  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  RegisterHotkey (Handle, 1, MOD_Control, ord('Q'));

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotkey( Handle, 1) ;

end;

Procedure TForm1.WMHotkey( Var msg: TWMHotkey ) ;

Begin

  If msg.hotkey = 1 Then

  Begin

    keybd_event (VK_Control, 0, KEYEVENTF_KEYUP, 0 );

    //DoShortCutMacro;

    keybd_event (ord('H'), 0, 0, 0 );

    keybd_event (ord('H'), 0, KEYEVENTF_KEYUP, 0 );

  End;

End;