Click here to Skip to main content
Click here to Skip to main content

Using screensavers inside the Windows Media Player

, 15 Jul 2011 CPOL
Rate this:
Please Sign up or sign in to vote.
Wrapping a screensaver inside a WMP visualization plug-in.

Sample Image - SheepWMP.jpg

Introduction

A few days ago, I downloaded and installed the electricsheep screensaver. This is such a cool screensaver, I wanted to watch it while I worked, and I found the SheepWatcher.

So I started thinking: "that's cool, how did they do that, run the screen saver in a window?" Good old Microsoft had the anwser.

So being a Windows developer, I decided I could do better, a Windows Media Player plug-in to run ElectricSheep.scr. The first step was to get the WMP SDK:

It did not work with VS.NET 2005:

Test

OK, create a C++ project for a Windows Media Player Visualization Plug-in, we will call it SheepWMP. Actually, I wrote a quick test dialog application like so:

A small helper function to wrap CreateProcess:

static HANDLE LaunchProcess ( LPTSTR aProcessName, LPTSTR aArgs )
{
    STARTUPINFO lStartupInfo;            
    PROCESS_INFORMATION lProcessInfo;

    memset ( &lProcessInfo, 0, sizeof ( lProcessInfo ) );
    memset ( &lStartupInfo, 0, sizeof ( lStartupInfo ) );

    lStartupInfo.cb = sizeof ( lStartupInfo );
    lStartupInfo.dwFlags = STARTF_USESHOWWINDOW;
    lStartupInfo.wShowWindow = SW_SHOWNORMAL;

    // Create target process
    CreateProcess ( aProcessName, aArgs, NULL, NULL, FALSE, 0, 
                    NULL, NULL, & lStartupInfo, & lProcessInfo );

    WaitForInputIdle ( lProcessInfo.hProcess, INFINITE ) ;

    return lProcessInfo.hProcess ;
}
BOOL CSheepTestDlg::OnInitDialog()
{
    CDialog::OnInitDialog();

    // Set the icon for this dialog.
    // The framework does this automatically
    //  when the application's main window is not a dialog
    SetIcon(m_hIcon, TRUE);   // Set big icon
    SetIcon(m_hIcon, FALSE);  // Set small icon

    TCHAR lCommand [ 1024 ] ;
    _stprintf_s ( lCommand, 1024, _T(" /p %u"), 
                  (DWORD) GetSafeHwnd () ) ;

    TCHAR lExe [ 1024 ] ;
    _stprintf_s ( lExe, 1024, 
       _T("c:\\windows\\system32\\electricsheep.scr") ) ;

    TRACE ( lCommand ) ;
    LaunchProcess ( lExe, lCommand ) ;
    return TRUE;  // return TRUE  unless you set the focus to a control
}

Code

Right, let's get to the Media Player plug-in. VS2005, with the WMPSDK, will create a basic visualization plug-in. The first steps are to remove all the rendering code and simply attach the screensaver to the desired HWND:

STDMETHODIMP CSheepWMP::RenderWindowed(TimedLevel *pLevels, 
                                       BOOL fRequiredRender )
{
....

    TCHAR lCommand [ 1024 ] ;
    _stprintf_s ( lCommand, 1024, _T(" /p %u"), 
                  (DWORD) m_hwndParent ) ;

    TCHAR lExe [ 1024 ] ;
    _stprintf_s ( lExe, 1024, 
                  _T("c:\\windows\\system32\\electricsheep.scr") ) ;

    TRACE ( lCommand ) ;
    LaunchProcess ( lExe, lCommand ) ;
....
}

But what happens when Windows Media Player changes size:

// Has the window changed dimensions
RECT lRect ;
GetClientRect ( gWnd, &lRect ) ;
if ( memcmp ( &gRect, &lRect, sizeof ( RECT ) ) != 0 )
{
    ATLTRACE ( DEFAULT_TRACE_PREFIX 
               _T("Window size changed...\n") ) ;
    memcpy ( &gRect, &lRect, sizeof ( RECT ) ) ;

    // Try to update the exinsing window
    HWND lWnd = FindWindowEx ( gWnd, NULL, 
                _T("WindowsScreenSaverClass"), NULL ) ;
    if ( lWnd ) 
    {
        ATLTRACE ( DEFAULT_TRACE_PREFIX 
                   _T("Moving screensaver window...\n") ) ;
        SetWindowPos ( lWnd, NULL, lRect . left, lRect . top, 
                       lRect . right - lRect . left, 
                       lRect . bottom - lRect . top, 
                       SWP_SHOWWINDOW ) ;
    }
}

So now, we have the basics working. If you examine my source, you will see that it locates all the Windows screensavers and can run them all inside the Window Media Player. It's done like so:

CAtlString lPath ;
SHGetFolderPath ( NULL, CSIDL_SYSTEM, NULL, 0, 
                  lPath . GetBufferSetLength ( MAX_PATH ) ) ;
lPath . ReleaseBuffer () ;

ATLTRACE ( DEFAULT_TRACE_PREFIX _T("Finding all scrs in %s\n"), lPath ) ;


CAtlString lSearch = lPath ;
PathAppend ( lSearch . GetBufferSetLength ( MAX_PATH ), DEFAULT_SCR_EXT ) ;
lSearch . ReleaseBuffer () ;

WIN32_FIND_DATA lFindFileData;
HANDLE lFind = FindFirstFile ( lSearch, &lFindFileData ) ;
if ( lFind != INVALID_HANDLE_VALUE )
{
    do
    {
        CAtlString lScr = lPath ;
        PathAppend ( lScr .GetBufferSetLength ( MAX_PATH ), 
                           lFindFileData . cFileName  ) ;
        lScr . ReleaseBuffer () ;
    
        ATLTRACE ( DEFAULT_TRACE_PREFIX _T("Adding scr, %s\n"), lScr ) ;

        m_Scrs . push_back ( lScr ) ;
    }
    while ( FindNextFile ( lFind, &lFindFileData ) ) ;

    FindClose ( lFind ) ;
}

Now, inside the Windows Media Player, we list all the screensavers using nice names. You have to get the names from the screensaver .scr files, which can be loaded like resource DLLs:

CAtlString CSheepWMP::GetScrName ( CAtlString aScr ) 
{
    // Initially get the filename and remove extension
    CAtlString lName = PathFindFileName ( aScr ) ;
    PathRemoveExtension ( lName . GetBufferSetLength ( MAX_PATH ) ) ;
    lName . ReleaseBuffer () ;

    // Load the DLL as a data file, and do not resolve any references
    ATLTRACE ( DEFAULT_TRACE_PREFIX _T("Loading library %s\n"), aScr ) ;
    HINSTANCE lInstance = LoadLibraryEx ( aScr, NULL, 
              DONT_RESOLVE_DLL_REFERENCES | LOAD_LIBRARY_AS_DATAFILE ) ;
    if ( lInstance )
    {
        // Examining all SCR, string 1 is the description
        // used by the display properties
        CAtlString lDesc ;
        LoadString ( lInstance, 1, 
                     lDesc.GetBufferSetLength(MAX_PATH), MAX_PATH ) ;
        lDesc . ReleaseBuffer () ;

        // Clean up
        FreeLibrary ( lInstance ) ;

        // If we have a valid description use it
        if ( lDesc . IsEmpty () == FALSE )
        {
            ATLTRACE ( DEFAULT_TRACE_PREFIX 
                       _T("Set scr name to description, %s\n"), lDesc ) ;
            lName = lDesc ;
        }
    }
    return lName ;
}

That's all!

History

  • 15 July, 2011: Updated source for new version of Electric Sheep. Also included the C# .NET implementation and the Microsoft Windows setup script.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Justin Hallet
Web Developer
Australia Australia
Developing windows applications for over 15 years now starting on Win 3.1 with Object Oriented Pascal, progressed to C++ and OWL, in 1996 switch to MFC and never looked back, now focusing on .NET/Mono.

Comments and Discussions

 
QuestionNot Working - Windows 7 64bit & electricsheep-2.7b34 PinmemberMarc Rasch28-Apr-12 11:06 
QuestionSource Package PinmemberJustin Hallet17-Jul-11 14:42 
The source package has been updated to include support for latest version of Electric Sheep, also now includes a C# .NET implementation.
GeneralA bit of trouble PinmemberMember 776079316-Mar-11 16:21 
GeneralElectric Sheep WMP Plug In PinmemberSpecter138-Feb-09 11:14 
GeneralElectric Sheep 2.7 Beta 10 (and later) Pinmemberfolderol26-Jan-09 2:37 
QuestionHOW DO I GET THE PLUGIN TO INSTALL PinmemberZBow15-Oct-08 7:07 
QuestionChanging the Visualization in Media Player PinmemberFadik26-Sep-06 9:32 
AnswerRe: Changing the Visualization in Media Player PinmemberJustin Hallet26-Sep-06 22:57 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.141223.1 | Last Updated 15 Jul 2011
Article Copyright 2006 by Justin Hallet
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid