Windows上のHaskellでキーストロークをシミュレートする

Question

Windows上のキーストロークをシミュレートするHaskellプログラムを作成しようとしています。私はkeybd_eventとSendInputを呼び出そうとしましたが、どちらもコンパイルされませんでした。私はインタプリタでプログラムを走らせることができます。

cabal install 
... 
[1 of 2] Compiling WindowsKeys  (dist\build\WindowsKeys\WindowsKeys-tmp\WindowsKeys.hs, dist\build\WindowsKeys\WindowsKeys-tmp\WindowsKeys.o) 
[2 of 2] Compiling Main    (src\Main.hs, dist\build\WindowsKeys\WindowsKeys-tmp\Main.o) 
Linking dist\build\WindowsKeys\WindowsKeys.exe ... 
dist\build\WindowsKeys\WindowsKeys-tmp\WindowsKeys.o:fake:(.text+0x35d): undefined reference to `SendInput' 
collect2: ld returned 1 exit status 
cabal: Error: some packages failed to install: 
WindowsKeys-0.1.0.0 failed during the building phase. The exception was: 
ExitFailure 1 

詳細なエラーがhttp://pastebin.com/trg21N0xであるが、それはすべてのより多くの手がかりが含まれていないようです。私はそれがwinable.hにSendInputへの結合を含んでいたときにプログラムを構築しようとした際、私はエラーを取得します。 keybd_eventを使用しようとすると、同様のエラーが発生します。 は、私が書いたHSCファイルは、これらのヘッダが含まれています。ここでは

#include "windows.h" 
#include "winuser.h" 
#include "winable.h" 

Cが結合されています

foreign import ccall unsafe "winable.h SendInput" 
     c_SendInput :: UINT 
        -> Ptr Input 
        -> CInt 
        -> IO UINT 

を私は理由の#ifのWINUSER.HにSendInputを呼び出すことができなかったと仮定：

#if (_WIN32_WINNT >= 0x0403) 
WINUSERAPI UINT WINAPI SendInput(UINT,LPINPUT,int); 

_WIN32_WINNTのバインドを追加すると、値は0x400になります。

私はHaskellプラットフォームのバージョン2012.4.0.0を持っています。それは私が含まれているものを含むヘッダーのフォルダが付属しています。自分のコンピュータに同じ名前の他のヘッダーが見つかりませんでした。私はWindows 7 Professional、バージョン6.1を使用しています。

ありがとうございました！私はキーボード機能へのバインディングをコメントアウトするとき

-- Initial WindowsKeys.cabal generated by cabal init. For further 
-- documentation, see http://haskell.org/cabal/users-guide/ 

name:    WindowsKeys 
version:    0.1.0.0 
build-type:   Simple 
cabal-version:  >=1.8 
extra-source-files: windows.h, winuser.h, winable.h 

executable WindowsKeys 
    main-is:    Main.hs 
    other-modules:  WindowsKeys 
    build-depends:  base ==4.5.*, Win32 ==2.2.* 
    hs-source-dirs:  src 
    build-tools:   hsc2hs 
    extra-libraries:  user32 
    include-dirs:  src 

ビルドが成功します。ここでは

はWindowsKeys.cabalです。

Answer 1

私は間違った呼び出し規約を使用していました。 keybd_eventとSendInputの両方を、ccallの代わりにstdcallで呼び出す必要があります。