Micheal, play with the code provided below.
TimerSys(GetCurWinName,100)
PROCEDURE GetCurWinName()
iHWndCurr is int
iNameStr is int
iNameLen is int = 255
sWinName is string
iHWndCurr = API("USER32","GetForegroundWindow")
sWinName=Complete(sWinName,iNameLen)
FunctionResult is int = API("USER32","GetWindowTextA", iHWndCurr, sWinName, iNameLen)
IF FunctionResult > 0 THEN
Trace(sWinName)
END
HTH,
Merijn