AutoHotkey Community

F1::
   If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 300) {
        Send {F1}
   }
   Else {
   }
Return

$F1::
   If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 300) {
        Send {F1}
   }
   Else {
   }
Return

$F1::
F1Down:=A_TickCount
Keywait F1
If ((A_TickCount-F1Down)>1000)
Send {F1}
Return

#NoTrayIcon
SetTitleMatchMode, 3

$F1::
  Gui, -MaximizeBox -MinimizeBox
  Gui, Add, Button, x1 y1 w130 h30 gAutohotkey, Autohotkey
  Gui, Add, Button, x130 y1 w130 h30 gApplication, Application
  Gui, Add, Button, x260 y1 w130 h30 gWindows, Windows
  Gui, Add, Button, x396 y1 w130 h30 gCancel, Cancel
  Gui, Show, w527 h32, Help  -  Please choose ...
Return

#IfWinActive, Help  -  Please choose ... ahk_class AutoHotkeyGUI
Esc::Gui, Destroy
Enter::Send {Space}

GuiClose:
  Gui, Destroy
Return

Autohotkey:
  Gui, Destroy
  pathname = %A_AhkPath%\AutoHotkey.chm
  RunOrActivate(pathname, "hh.exe", "AutoHotkey Help ahk_class HH Parent")
Return

Application:
  Gui, Destroy
  Send {F1}
Return

Windows:
  Gui, Destroy
  Send {F1}
Return

Cancel:
  Gui, Destroy
Return

RunOrActivate(Target, InternalExeName="", WinTitle="")
{
  SplitPath, Target, TargetNameOnly   ;Get the filename without a path
  Process, Exist, %TargetNameOnly%
  ErrorLevel1 := ErrorLevel      ;In case just a FILE (eg help.chm)

  Process, Exist, %InternalExeName%
  ErrorLevel2 := ErrorLevel      ;In case PROGRAM (eg hh.exe)

  If (ErrorLevel1 > 0)
    PID := ErrorLevel1
  Else If (ErrorLevel2 > 0)
    PID := ErrorLevel2
  Else
    Run, %Target%, , , PID

  ; Activate by title if given, otherwise use PID
  If (WinTitle <> "")
  {
    SetTitleMatchMode, 2
    WinWait, %WinTitle%, , 3
    TrayTip, , Activating Window Title "%WinTitle%" (%TargetNameOnly%)
    WinActivate, %WinTitle%
  }
  Else
  {
    WinWait, ahk_pid %PID%, , 3
    WinActivate, ahk_pid %PID%
  }
}