お世話になっております。

APIのSendInput関数を使うことになりやってみたのですが
下記コードを実行しても\"A\"が表示されません。
GetLastError()では0、SendInput()の戻り値は2でした。

この関数を使用したことがある方はいませんでしょうか？
よろしくお願いします。

// 以下シングルラインエディットオブジェクトからの継承ユーザーオブジェクト内コード

// ローカル外部関数宣言
FUNCTION UINT SendInput (UINT nInputs, ref uLong pInputs, int cbsize) Library \"user32\"
FUNCTION ULong lstrcpyn(REF s_Input_type dst[2], REF s_Input_type pInputs[2], UnsignedLong length) 
LIBRARY \"KERNEL32.DLL\" ALIAS FOR \"lstrcpynA\"

// インスタンス宣言
private s_input_type i_input_events[2]

Constant integer INPUT_KEYBOARD 　　　　= 1
Constant integer KEYEVENTF_EXTENDEDKEY = 1
Constant integer KEYEVENTF_KEYUP　　　　= 2//キーを放す　　　
constant integer VK_A 　= 65 // 仮想Ａキー

// オブジェクト構造体宣言
s_input_type
  ulong         input_type
  s_keybd_input ki
  charactor     yobi[4]

s_keybd_input
  int           vk
  int           scan
  long          flags
  long          time
  long          extrainfo

次へ続く