Apple keybord shortcuts for XP

[infernothebest]

If you got this Apple keyboard, then you don't need to install Apple bootcamp software or any other drivers any more.

this utility simulates apple shortcuts

V1

expandcollapse popup

;Apple keybord F-keys For XP

#include <Misc.au3>
#Include <Constants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
HotKeySet("{F7}","F7")
HotKeySet("{F8}","F8")
HotKeySet("{F9}","F9")
HotKeySet("{F10}","F10")
HotKeySet("{F11}","F11")


while 1;klaar
sleep(1)
if _IsPressed("7B", DllOpen("user32.dll")) Then
GUIDelete ()
Send("{VOLUME_UP}")
sleep(250)
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen 
$rgn = CreateTextRgn($hwnd,"Volume +",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()    
EndIf
WEnd

Func F7();Klaar
Send("{MEDIA_PREV}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000) ; text color rood 
$rgn = CreateTextRgn($hwnd,"Previous Song",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F8()
Send("{MEDIA_PLAY_PAUSE}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen/Rood
$rgn = CreateTextRgn($hwnd,"Play/Stop",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F9()
Send("{MEDIA_NEXT}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen 0x00FF00
$rgn = CreateTextRgn($hwnd,"Next Song",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F10()
Send("{VOLUME_MUTE}")
GUIDelete ()
if _Ismute() = 1 Then
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000);Rood
$rgn = CreateTextRgn($hwnd,"Volume MUTE",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
Else
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen
$rgn = CreateTextRgn($hwnd,"Volume MUTE",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndIf
EndFunc


Func F11();Klaar
Send("{VOLUME_DOWN}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000) ; text color rood 
$rgn = CreateTextRgn($hwnd,"Volume -",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)

GUISetState()
Sleep(500)
GUIDelete ()

EndFunc

Func SetWindowRgn($h_win, $rgn)
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc
Func CreateTextRgn(ByRef $CTR_hwnd,$CTR_Text,$CTR_height,$CTR_font="Microsoft Sans Serif",$CTR_weight=1000)
    Local Const $ANSI_CHARSET = 0
    Local Const $OUT_CHARACTER_PRECIS = 2
    Local Const $CLIP_DEFAULT_PRECIS = 0
    Local Const $PROOF_QUALITY = 2
    Local Const $FIXED_PITCH = 1
    Local Const $RGN_XOR = 3
    
    If $CTR_font = "" Then $CTR_font = "Microsoft Sans Serif"
    If $CTR_weight = -1 Then $CTR_weight = 1000
    Local $gdi_dll = DLLOpen("gdi32.dll")
    Local $CTR_hDC= DLLCall("user32.dll","int","GetDC","hwnd",$CTR_hwnd)
    Local $CTR_hMyFont = DLLCall($gdi_dll,"hwnd","CreateFont","int",$CTR_height,"int",0,"int",0,"int",0, _
                "int",$CTR_weight,"int",0,"int",0,"int",0,"int",$ANSI_CHARSET,"int",$OUT_CHARACTER_PRECIS, _
                "int",$CLIP_DEFAULT_PRECIS,"int",$PROOF_QUALITY,"int",$FIXED_PITCH,"str",$CTR_font )
    Local $CTR_hOldFont = DLLCall($gdi_dll,"hwnd","SelectObject","int",$CTR_hDC[0],"hwnd",$CTR_hMyFont[0])
    DLLCall($gdi_dll,"int","BeginPath","int",$CTR_hDC[0])
    DLLCall($gdi_dll,"int","TextOut","int",$CTR_hDC[0],"int",0,"int",0,"str",$CTR_Text,"int",StringLen($CTR_Text))
    DLLCall($gdi_dll,"int","EndPath","int",$CTR_hDC[0])
    Local $CTR_hRgn1 = DLLCall($gdi_dll,"hwnd","PathToRegion","int",$CTR_hDC[0])
    Local $CTR_rc = DLLStructCreate("int;int;int;int")
    DLLCall($gdi_dll,"int","GetRgnBox","hwnd",$CTR_hRgn1[0],"ptr",DllStructGetPtr($CTR_rc))
    Local $CTR_hRgn2 = DLLCall($gdi_dll,"hwnd","CreateRectRgnIndirect","ptr",DllStructGetPtr($CTR_rc))
    DLLCall($gdi_dll,"int","CombineRgn","hwnd",$CTR_hRgn2[0],"hwnd",$CTR_hRgn2[0],"hwnd",$CTR_hRgn1[0],"int",$RGN_XOR)
    DLLCall($gdi_dll,"int","DeleteObject","hwnd",$CTR_hRgn1[0])
    DLLCall("user32.dll","int","ReleaseDC","hwnd",$CTR_hwnd,"int",$CTR_hDC[0])
    DLLCall($gdi_dll,"int","SelectObject","int",$CTR_hDC[0],"hwnd",$CTR_hOldFont[0])
    DLLClose($gdi_dll)
    Return $CTR_hRgn2[0]
EndFunc

audio.au3

Edited November 10, 2008 by infernothebest

[ludocus]

Nice!!!.. Very good..

edit (I would Tidy this script.. (its a tool in scite) )

Edited November 10, 2008 by ludocus

[infernothebest]

tidy?

[ludocus]

1) go to the path of your file click right mouse button on it and then click Tidy

2) Press in scite CTRL+T

if you dont have tidy get it here

Edited November 10, 2008 by ludocus

[infernothebest]

oke, does anyone know a fix for use ingame? because if i start css and play andd press a shortcut key css will mimize. Is there a way to view this ingame and not minize