It works for me. Are you clicking in the desktop first to make sure it's the active window?
From playing around it seems if the hotkey shows correctly in the About box, it works wherever Control-Shift-n works.
Here's the source if you want to hard wire it. Note that the MilesAhead.ahk include is just needed to detect the Windows Version. You can just cut out the _WinVersion() section of code. I don't have the old version with the hard wired hotkey but it should be easy enough to change it to
IfWinActive,ahk_group DesktopGroup
F8::
yadda yadda
/*
* * * Compile_AHK SETTINGS BEGIN * * *
[AHK2EXE]
Exe_File=%In_Dir%\7Folder.exe
No_UPX=1
[VERSION]
Set_Version_Info=1
Company_Name=FavesSoft LLC
File_Version=1.2.0.0
Inc_File_Version=0
Legal_Copyright=2011 www.FavesSoft.com
Original_Filename=7Folder
Product_Name=7Folder
Product_Version=1.2.0.0
[ICONS]
Icon_1=%In_Dir%\7.ico
* * * Compile_AHK SETTINGS END * * *
*/
; 7Folder - F7 in Explorer or Desktop creates new folder
; on Windows Seven by sending Control-Shift-n sequence
;
; MilesAhead
;
#SingleInstance force
#Include MilesAhead.ahk
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
Menu Tray,NoStandard
Menu Tray,Add,Donate,DoDonate
Menu Tray,Add,Visit Hotkey Page,DoVisit
Menu Tray,Add,About 7Folder,DoAbout
Menu Tray,Add
Menu Tray,Add,Quit,DoQuit
Menu Tray,Default,About 7Folder
Menu Tray,Tip,7Folder
GroupAdd,DesktopGroup, ahk_class CabinetWClass
GroupAdd,DesktopGroup, ahk_class ExploreWClass
GroupAdd,DesktopGroup, ahk_class Progman
If _WinVersion() < 6.1
{
MsgBox, 4112, 7Folder, 7Folder requires Windows Seven to Run
ExitApp
}
if 0 = 1
{
carg = %1%
}
else
{
carg := "F7"
}
Hotkey, IfWinActive, ahk_Group DesktopGroup
Hotkey,%carg%,DoHotKey,UseErrorLevel
If ErrorLevel
{
MsgBox, 4112, 7Folder, %carg% is not a valid Hotkey
ExitApp
}
return
DoHotKey:
Send ^+{n}
Return
DoAbout:
FileGetVersion,filever,7Folder.exe
MyMsg =
(
7Folder v %filever% Copyright (c) 2011 www.FavesSoft.com`n
Press %carg% to create New Folder in Explorer or on Desktop`n
)
MsgBox, 4160, About 7Folder, %MyMsg%
Return
DoDonate:
Run,"http://www.favessoft.com/donate.html"
Return
DoVisit:
Run,"http://www.favessoft.com/hotkeys.html"
Return
DoQuit:
ExitApp
Recent Posts
