HWND activehwnd;
        DWORD procId;
        activehwnd=GetForegroundWindow();
        int rez;
        char buff[ 254 ];
        unsigned long size;
        AnsiString WindowName;
        AnsiString UserName;
        size= 253 ;

        rez=GetWindowThreadProcessId(
                        activehwnd,	// handle of window
                        &procId // address of variable for process identifier
           );

        rez=GetWindowText(
                    activehwnd,	// handle of window or control with text
                    buff,	// address of buffer for text
                    size 	// maximum number of characters to copy
                   );
        WindowName=AnsiString(buff);

        rez=GetUserName(
                            buff,	// address of name buffer
                            &size 	// address of size of name buffer
                           );
        UserName=AnsiString(buff);
        Memo1->Lines->Add(DateTimeToStr(Now())+" " +UserName+" " +WindowName);

        HANDLE         hProcessSnap = NULL;
        PROCESSENTRY32 pe32      = { 0 };
        //  Take a snapshot of all processes currently in the system.
        hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,  0 );
        if (hProcessSnap == (HANDLE)- 1 )
                return;
        pe32.dwSize = sizeof(PROCESSENTRY32);
        if (Process32First(hProcessSnap, &pe32))
                {
                do {
                        if (pe32.th32ProcessID==procId)
                                {
                                Memo1->Lines->Add(AnsiString(pe32.th32ProcessID)+"="+AnsiString(pe32.szExeFile));
                                }
                   }
                while (Process32Next(hProcessSnap, &pe32));
                }
    // Do not forget to clean up the snapshot object.
    CloseHandle (hProcessSnap);