PUBLIC objForm
objForm = CreateObject("TForm")
objForm.Visible = .T.
 
DEFINE CLASS TForm As Form
    Width=460
    Height=300
    AutoCenter=.T.
    Caption=" Recording Window Messages"
    KeyPreview=.T.
    recorder=.F.
    hWindow=0
 
PROCEDURE Activate
    IF THIS.hWindow = 0
        DECLARE INTEGER GetFocus IN user32
        THIS.hWindow = GetFocus()
 
        THIS.recorder = CreateObject("TRecorder",;
            THIS.hWindow, "c:\temp\log.txt")
    ENDIF
 
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
    IF nKeyCode = 27
        ThisForm.Release
    ENDIF
 
ENDDEFINE
 
DEFINE CLASS TRecorder As Custom
    hWindow=0
    LogFile=""
    ole=.F.
 
PROCEDURE Init (hWnd, lcFileName)
    THIS.LogFile = lcFileName
    THIS.hWindow = hWnd
 
    ON ERROR ?? Chr(7)
    THIS.ole = CreateObject("WinProcXT.WinProc")
    ON ERROR
 
    IF TYPE("THIS.ole") <> "O"
        RETURN .F.
    ENDIF
 
    WITH THIS.ole
        .StartService (THIS.hWindow, THIS.LogFile)
        IF Not .IsRunning
            RETURN .F.
        ENDIF
    ENDWITH
 
PROCEDURE Destroy
    THIS.ole.StopService
    IF FILE (THIS.LogFile)
        CREATE CURSOR csMessages (msg N(16), wParam N(16), lParam N(16))
        APPEND FROM (THIS.LogFile) TYPE DELIMITED WITH TAB
        GO TOP
        BROWSE NORMAL NOWAIT
    ENDIF
ENDDEFINE