Program-Specific Hotkeys ?

[Guest goflyapig]

I'm trying to set a hotkey that only does something in a certain program, and ignores it in other programs, but I couldn't figure it out (is it possible?).

I tried doing something like this:

HotKeySet("^c", "someFunc")

While 1
    Sleep(100)
WEnd

Func someFunc()
    If NOT WinActive("Foo") Then
        Send("^c")
        Return
    EndIf
    ToolTip("You pressed Ctrl+C in Foo", 0, 0)
EndFunc

What I wanted was for Ctrl+C put up a tooltip if the window was named Foo, and otherwise sent Ctrl+C back to the program to do the usual.

What I got was a Stack Overflow, because sending Ctrl+C just caused triggered the hotkey again. Is there a way to do this?

Edited October 17, 2004 by goflyapig

[Guest goflyapig]

Arggh. I figured it out. Nevermind.

[CyberSlug]

See the HotKeySet Remarks...

There are two techniques:

One:

While 1
If WinActive("Foo") Then
  HotKeySet("^c", "someFunc")
Else
  HotKeySet("^c");un-register hotkey
EndFunc
Wend

Two:

Func someFunc()

If NOT WinActive("Foo") Then

HotKeySet("^c") ;unregister

Send("^c")

HotKeySet("^c", "someFunc") ;re-register

EndIf

EndFunc

[ezzetabi]

To avoid useless activations and deactivations I advice you tring something like:

Global $bHook = 0
AdlibEnable('_keyhooking',250)


Func _keyhooking()
   Select
   Case WinActive("Foo") AND $bHook = 0
      $bHook = 1
      HotKeySet("^c", "someFunc")
   Case Not WinActive("Foo") AND $bHook = 1
      $bHook = 0
      HotKeySet("^c",)
   EndSelect
EndFunc

Edited October 17, 2004 by ezzetabi