将 C# 委托转换为 f#

如何将委托转换为 F#？

代表：

delegate IntPtr HookProc(int code, IntPtr wParam, IntPtr lParam);

Edited

我正在做的是使用 F# 中的 C# 托管 API 进行低级键盘挂钩

Code:

[<DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)>]
extern bool UnhookWindowsHookEx(System.IntPtr hhk);

[<DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)>]
extern System.IntPtr CallNextHookEx(System.IntPtr hhk, int nCode,System.IntPtr wParam, System.IntPtr lParam);

[<DllImport("kernel32.dll", CharSet = CharSet.Auto, SetLastError = true)>]
extern System.IntPtr GetModuleHandle(string lpModuleName);

[<DllImport("user32.dll")>]
extern System.IntPtr SetWindowsHookEx(int code, HookProc func, System.IntPtr hInstance, int threadID);

代表：

type HookProc = delegate of (int * nativeint * nativeint) -> nativeint

功能

let HookCallback(nCode:int,wParam:System.IntPtr,lParam:System.IntPtr) = 
                    let t = (int)wParam
                    if  t = WM_KEYUP then 
                         let vkCode:int = Marshal.ReadInt32(lParam)
                         printfn "%A The Pressed key code is : "  vkCode
                    CallNextHookEx(_hookID, nCode, wParam, lParam)



let HookProcF = new HookProc(HookCallback)
let SetHook() = 
                let curProcess = Process.GetCurrentProcess()
                let curModule = curProcess.MainModule
                let t =0
                let h =  GetModuleHandle(curModule.ModuleName)
                SetWindowsHookEx(WH_KEYBOARD_LL, HookProcF, h, t);



let HookMoniter() = 
        let _hookID = SetHook()
        UnhookWindowsHookEx(_hookID);

尝试以下操作

type HookProc = delegate of int * nativeint * nativeint -> nativeint

注意nativeint只是 F# 名称IntPtr