AutoHotkey script from Billy TK Functions..: Make Apple Wireless Keyboard useful in MS Windows: - EJECT = Delete with repeat deleting on long pressing. Shift-DEL and other combinations works too. - Swap FN & left Control - FN-functions оn F3-F12 keys and arrow keys (use new-FN) - FN+EJECT = drive eject - F12 = INSERT (on your need, it simple to …

AppleWKHelper.ahk

;
; AutoHotkey Version: 1.x
; Language.........: English
; Platform.........: NT/XP/Vista
; Author...........: mrBTK
;
; Script Function..: Make Apple Wireless Keyboard useful in MS Windows: 
;    - EJECT = Delete with repeat deleting on long pressing. Shift-DEL and other combinations works too.
;    - Swap FN & left Control 
;    - FN-functions оn F3-F12 keys and arrow keys (use new-FN)
;    - FN+EJECT = drive eject
;    - F12 = INSERT (on your need, it simple to delete this feature: find in script "switch F12 to Insert" and delete the command)
;    - AWK POWER button toggle script suspending. Place in script directory two any sound files "on.wav" & "off.wav" for notification
;
; Based on.........: DLLCall: Support for Human Interface devices: some keymapping code
; By...............: Micha
; URL..............: http://www.autohotkey.com/forum/viewtopic.php?t=6367
; Based on.........: HID/Extended input devices (MS Natural Keyboard 4000 etc.): HID operations code
; By...............: Shaun 
; URL..............: http://www.autohotkey.com/board/topic/36304-hidextended-input-devices-ms-natural-keyboard-4000-etc/
;
; Use..............: Spread the word! Just be sure to credit the writer of the original config
;                    and the authors of this file.
;

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#MaxHotkeysPerInterval 1000
#SingleInstance force ; Replace any previous instance 

DetectHiddenWindows, on
OnMessage(0x00FF, "InputMessage")

SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
;#NoTrayIcon

; Set screen title, to set the HWND
Gui, Show, x0 y0 h0 w0, AppleWKHelper
HWND := WinExist("AppleWKHelper")

hidMessage := 0
isSuspend := 0

; Variable for the modifier key
fnPressed := 0
fnPrevState := 0
ejPressed := 0
ejPrevState := 0
pwrPressed := 0
pwrPrevState := 0

; Variable for Fn <> Lctrl
lctrlPressed := 0
lctrlPrevState := 0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; handle HID input, set global vars, call modKeysProcessing

; List all of the "Raw Input" devices available for use and allow 
; capture of output 
; 
; There may be more than one 'raw' device per device actually attached 
; to the system. This is because these devices generally represent 
; "HID Collections", and there may be more than one HID collection per 
; USB device. For example, the Natural Keyboard 4000 supports a normal
; keyboard HID collection, plus an additional HID collection that can 
; be used for the zoom slider and other important buttons 

SizeofRawInputDeviceList := 8
SizeofRidDeviceInfo := 32
SizeofRawInputDevice := 12

RIM_TYPEMOUSE := 0
RIM_TYPEKEYBOARD := 1
RIM_TYPEHID := 2

RIDI_DEVICENAME := 0x20000007
RIDI_DEVICEINFO := 0x2000000b

RIDEV_INPUTSINK := 0x00000100

RID_INPUT     := 0x10000003

;;get count of HID devices
Res := DllCall("GetRawInputDeviceList", UInt, 0, "UInt *", Count, UInt, SizeofRawInputDeviceList)
VarSetCapacity(RawInputList, SizeofRawInputDeviceList * Count)

;;get list of HID devices
Res := DllCall("GetRawInputDeviceList", UInt, &RawInputList, "UInt *", Count, UInt, SizeofRawInputDeviceList)

rimHIDregistered := 0

Loop %Count% { ;for all HID devices
   Handle := NumGet(RawInputList, (A_Index - 1) * SizeofRawInputDeviceList)
   Type := NumGet(RawInputList, (A_Index - 1) * SizeofRawInputDeviceList + 4)
   if (Type = RIM_TYPEMOUSE)
	  TypeName := "RIM_TYPEMOUSE"
   else if (Type = RIM_TYPEKEYBOARD)
	  TypeName := "RIM_TYPEKEYBOARD"
   else if (Type = RIM_TYPEHID)
	  TypeName := "RIM_TYPEHID"
   else
	  TypeName := "RIM_OTHER"

;; get HID device name length  
;   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICENAME, UInt, 0, "UInt *", Length)
;   VarSetCapacity(Name, Length + 2)
;; get HID device name
;   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICENAME, "Str", Name, "UInt *", Length)

; get HID device info   
   VarSetCapacity(Info, SizeofRidDeviceInfo)   
   NumPut(SizeofRidDeviceInfo, Info, 0)
   Length := SizeofRidDeviceInfo
   Res := DllCall("GetRawInputDeviceInfo", UInt, Handle, UInt, RIDI_DEVICEINFO, UInt, &Info, "UInt *", SizeofRidDeviceInfo)

; Keyboards are always Usage 6, Usage Page 1, Mice are Usage 2, Usage Page 1, 
; HID devices specify their top level collection in the info block
;   if (Type = RIM_TYPEMOUSE) {
;	  Buttons := NumGet(Info, 4 * 3, "UShort")
;     SampleRate := NumGet(Info, 4 * 4, "UShort")
;	  UsagePage := 1
;	  Usage := 2
;   } else if (Type = RIM_TYPEKEYBOARD) {
;	  Mode := NumGet(Info, 4 * 4, "UShort")
;     FunctionKeys := NumGet(Info, 4 * 5, "UShort")
;	  UsagePage := 1
;	  Usage := 6
;   }

; AWK modifier buttons is separate TYPEHID (rather keyboard standard buttons)
   if (Type = RIM_TYPEHID)
   {
      Vendor := NumGet(Info, 4 * 2, "UShort")
      Product := NumGet(Info, 4 * 3, "UShort")
      Version := NumGet(Info, 4 * 4, "UShort")
	  UsagePage := NumGet(Info, (4 * 5), "UShort")
	  Usage := NumGet(Info, (4 * 5) + 2, "UShort")
   }

   VarSetCapacity(RawDevice, SizeofRawInputDevice)
   NumPut(RIDEV_INPUTSINK, RawDevice, 4)
   NumPut(HWND, RawDevice, 8)
   
   if (Type = RIM_TYPEHID && Vendor = 1452  && rimHIDregistered = 0) ; AWK Vendor number
   {
	  rimHIDregistered := 1
	  NumPut(UsagePage, RawDevice, 0, "UShort")
	  NumPut(Usage, RawDevice, 2, "UShort")	 
;; Register AWK modifier buttons HID
      Res := DllCall("RegisterRawInputDevices", "UInt", &RawDevice, UInt, 1, UInt, SizeofRawInputDevice) 
      if (Res = 0) {
		 MsgBox, Failed to register for AWK device!
         ExitApp
      }
	}
}

Count := 1 

InputMessage(wParam, lParam, msg, hwnd)
{
   global hidMessage   
   global isSuspend
   global RIM_TYPEMOUSE, RIM_TYPEKEYBOARD, RIM_TYPEHID 
   global RID_INPUT
   
; get HID input
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, 0, "UInt *", Size, UInt, 16)
   VarSetCapacity(Buffer, Size)
   Res := DllCall("GetRawInputData", UInt, lParam, UInt, RID_INPUT, UInt, &Buffer, "UInt *", Size, UInt, 16)
   
   Type := NumGet(Buffer, 0 * 4)

;   if (Type = RIM_TYPEMOUSE)
;   {
;	  LastX := NumGet(Buffer, (16 + (4 * 3)), "Int")
;	  LastY := NumGet(Buffer, (16 + (4 * 4)), "Int")
;     hidMessage := 0
;   }
;   else if (Type = RIM_TYPEKEYBOARD)
;   {
;	  ScanCode := NumGet(Buffer, (16 + 0), "UShort")
;	  VKey := 
;	  hidMessage := NumGet(Buffer, (16 + 8))
;   }
;   else 
   if (Type = RIM_TYPEHID)
   {
	  SizeHid := NumGet(Buffer, (16 + 0))
	  InputCount := NumGet(Buffer, (16 + 4))
	  Loop %InputCount% {
		 Addr := &Buffer + 24 + ((A_Index - 1) * SizeHid)
         hidMessage := Mem2Hex(Addr, SizeHid)
         ProcessHIDData(wParam, lParam)
      }
   }
   return
} ; END: InputMessage

Mem2Hex( pointer, len )
{
   multiply := 0x100
   Hex := 0
   Loop, %len%  {
		Hex := Hex * multiply
		Hex := Hex + *Pointer+0
		Pointer ++
   }
Return Hex 
} ; END: Mem2Hex

ProcessHIDData(wParam, lParam)   ; set global vars for further handling
{
  	global hidMessage
	global isSuspend
	
	global fnPressed
	global fnPrevState
	global ejPressed
	global ejPrevState
	global pwrPressed
	global pwrPrevState

	SetTimer, SendDelete, Off			

; Filter bit 5 (Fn key)
  Transform, FnValue, BitAnd, 0xFF10, hidMessage

  if (FnValue = 0x1110) {
  	; Fn is pressed
		fnPrevState := fnPressed
		fnPressed := 1
  } else {
    ; Fn is released
		fnPrevState := fnPressed
		fnPressed := 0
  }

; Filter bit 4 (Eject key)
  Transform, FnValue, BitAnd, 0xFF08, hidMessage
  
  if (FnValue = 0x1108) {
  	; Eject is pressed
		ejPrevState := ejPressed
		ejPressed := 1
  } else {
  	; Eject is Released
		ejPrevState := ejPressed
		ejPressed := 0
  }

; Filter bit 1 fnd 2 (Power key)
  Transform, FnValue, BitAnd, 0xFF03, hidMessage
  if (FnValue = 0x1303) { ; Power is pressed
		pwrPrevState := 0
		pwrPressed := 1
	; Toggle Suspend of this script.
	chkSuspend() 
  }
  if (fnValue = 0x1302) { 	
    ; Power is released
		pwrPrevState := 1
		pwrPressed := 0
	; no anything doing оn power button release
  }
  
  if (isSuspend = 0)
	modKeysProcessing()

} ; END: ProcessHIDData

modKeysProcessing() { ; handle keypressing for modifier keys
  global fnPressed
  global ejPressed
  global ejPrevState
  global fnPrevState

  global lctrlPressed
  global lctrlPrevState

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Eject = delete with delay and repeat
  if (lctrlPressed = 0) {               		; eject only pressed
     if (ejPressed = 1 and ejPrevState = 0) {  	; eject down
	    if  (GetKeyState("Shift") or GetKeyState("Alt") or GetKeyState("Control")) {
           SendInput {Blind}{Delete}                      ; Edit::Cut and other w|o repeating
	    } else if (fnPressed = 1) {
			SendInput {Ctrl}{Delete}                      ; ctrl - del 
		} else {										  ; No modifiers = Del with repeating
		  SendInput {Delete}
		  SetTimer, SendDelete, -800           		      ; Delay for start repeating
	   }
    }
  }

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; fn = rCtrl
  if (ejPressed = 0) {                       	; fn only pressed
     if (fnPressed = 1 and fnPrevState = 0)     ; fn down
        SendInput {rCtrl Down}

     if (fnPressed = 0 and fnPrevState = 1)     ; fn up
 	    SendInput {rCtrl Up}
  }
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; lctrl + Eject Up = optical drive eject
  if (lctrlPressed = 1 and ejPressed = 0 and ejPrevState = 1 and fnPressed = 0) 
	Drive, Eject

} ; END: modKeysProcessing

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Send Delete keystroke repeatedly while Eject still pressed
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SendDelete:
	; repeating del while Eject still down
	if (ejPressed = 1) {
		SendInput {delete}
		SetTimer, SendDelete, -40			
}
Return

chkSuspend() {
	
	global fnPressed
	global fnPrevState
	global ejPressed
	global ejPrevState
	global lctrlPressed
	global lctrlPrevState
	global pwrPressed
	global pwrPrevState
	global isSuspend	
	
	if (isSuspend = 0) {
		isSuspend := 1
		
		fnPressed := 0
		fnPrevState := 0
		ejPressed := 0
		ejPrevState := 0
		pwrPressed := 0
		pwrPrevState := 0
		lctrlPressed := 0
		lctrlPrevState := 0
		
		Suspend , On
		SetTimer, SendDelete, Off			
		SendInput {rCtrl Up}
		TrayTip, AWK Helper, Suspended, 1, 1
		Soundplay , off.wav		
	} else {
		isSuspend := 0
		Suspend , Off
		TrayTip, AWK Helper, Restored, 1, 1
		Soundplay , on.wav	
	}	
} ; END: chkSuspend

; switch F12 to Insert
*F12::sendInput {Blind}{Insert}

;
; lctrl = fn
; get up and down Lcontrol, sets global variables
;
$*lControl up::LCtrlUp()

LCtrlUp() {

  global lctrlPressed
  global lctrlPrevState

  lctrlPrevState := 1
  lctrlPressed := 0

  SendInput {F24 up}
}
Return

$*lControl::LCtrlDn()

LCtrlDn() {

  global lctrlPressed
  global lctrlPrevState

  lctrlPrevState := 0
  lctrlPressed := 1
  
  SetTimer, SendDelete, Off			

  SendInput {F24 down}
}
Return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Fn modifier: PrintScreen, Task Manager
; lctrl uses as fn
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;
; fn+alt F3 = PrtScr for Active Window
;
$!F3::hotkeyAltF3()

hotkeyAltF3() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0) 
		SendInput !{PrintScreen}
	else 
		SendInput !{F3}
}
Return

;
; fn+F3 = PrtScr
;
$F3::hotkeyF3()

hotkeyF3() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {PrintScreen}
	else
		SendInput {F3}
}
Return

;
; fn+F4 = Run TM
;
$F4::hotkeyF4()

hotkeyF4() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
        SendInput +^{Esc}
	else
		SendInput {F4}
}
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Fn modifier: Audio hotkeys, specified for WMP
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;
; WinMPlayer: Previous
;
$F7::hotkeyF7()

hotkeyF7() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {Media_Prev}  ; Previous
	else
		SendInput {F7}
}
Return

;
; WinMPlayer: Pause/Unpause
;
$F8::hotkeyF8()

hotkeyF8() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {Media_Play_Pause} ; Pause/Unpause
	else
		SendInput {F8}
}
Return

;
; WinMPlayer: Next
;
$F9::hotkeyF9()

hotkeyF9()
{
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and and ejPressed = 0)
		SendInput {Media_Next} ; Next
	else
		SendInput {F9}
}
Return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Fn modifier: Audio hotkeys, system volume
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;
; System volume: Mute/Unmute
;
$F10::hotkeyF10()

hotkeyF10() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {Volume_Mute} ; Mute/unmute the master volume.
	else
		SendInput {F10}
}
Return

;
; System volume: Volume Down
;
$F11::hotkeyF11()

hotkeyF11() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {Volume_Down} ; Lower the master volume by 1 interval (typically 5%)
	else
		SendInput {F11}
}
Return

;
; System volume: Volume Down
;
$F12::hotkeyF12()

hotkeyF12() {
	global fnPressed
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0 and fnPressed = 0)
		SendInput {Volume_Up}  ; Raise the master volume by 1 interval (typically 5%).
	else
		SendInput {Insert}
}
Return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Fn modifier: Arrow keys
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;
; Page Up
;
$UP::hotkeyPgUp()

hotkeyPgUp() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0) {
		if (GetKeyState("Shift"))
			SendInput {rCtrl Up}+{PgUp}
		else
			SendInput {rCtrl Up}{PgUp}
	} else
		SendInput {UP}
}
Return

;
; Page Down
;
$Down::hotkeyPgDn()

hotkeyPgDn() {
	global fnPressed
	global ejPressed
	global ejPrevState
	global fnPrevState

	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {rCtrl Up}{PgDn}
	else
		SendInput {Down}
}
Return

;
; Home
;
$Left::hotkeyHome()

hotkeyHome() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {rCtrl Up}{Home}
	else
		SendInput {Left}
}
Return

;
; End
;
$Right::hotkeyEnd()

hotkeyEnd() {
	global ejPressed
	global lctrlPressed

	if(lctrlPressed = 1 and ejPressed = 0)
		SendInput {rCtrl Up}{End}
	else
		SendInput {Right}
}
Return