bij muisklik naam programma opvragen

[luck7]

Hallo

is er de mogelijkheid de naam van een programma op te roepen als deze word aangeklikt. bv:
als ik in word iets typ, en dan de internet explorer aanklik er "internet explorer" komt te staan?

bedankt
Luck

 

[JoZ1]

Ja, dat is mogelijk.

[CPP]Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal ech As Int32) As Int32
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32

Private Function GetActiveWindowTitle() As String
Dim mystr As String = New String(Chr(0), 100)
GetWindowText(GetForegroundWindow, mystr, 100)
mystr = mystr.Substring(0, InStr(mystr, Chr(0)) - 1)
Return mystr
End Function[/CPP]

Je kunt bijvoorbeeld met een Timer controleren of het veranderd.

Pseudocode:

Sub Timer.Tick
If GetActiveWindowTitle <> variabele_van_vorige_window Then ...
End Sub