SHELLTUNNING : VIDÉO À LA PLACE DU FOND D'ÉCRAN

/**************************************
*   Vidéo Desktop : alive desktop !! 
*
*
* Date : 7/06/2005
* Author : Poppyto
* website : http://www.poppyto.net
****************************************/

#include <windows.h>
#include <wininet.h> // Pour/For IActiveDesktop
#include <shlobj.h>  // Pour/For IActiveDesktop



int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nShowCmd)
{
	//Initialise COM
	//Initialize COM
	CoInitialize(0);

	HRESULT hr;
	IActiveDesktop *pActiveDesktop;

	// Créé une instance de IActiveDesktop, équivalent de l'operateur new
	// Create an instance of IActiveDesktop, similar to the new operator
	hr = CoCreateInstance(CLSID_ActiveDesktop, NULL, CLSCTX_INPROC_SERVER,
						IID_IActiveDesktop, (void**)&pActiveDesktop);

	
	// Bien remplir la taille de la structure de components !
	// Don't forget to set dwSize !
	COMPONENTSOPT cmps;
	cmps.dwSize = sizeof(cmps);

	// Récupère l'état d'ActiveDesktop
	// Get the ActiveDesktop State
	pActiveDesktop->GetDesktopItemOptions(&cmps,NULL);

	// Est-ce que ActiveDesktop est désactivé ?
	// Is ActiveDesktop not running ?
	if(cmps.fActiveDesktop != TRUE || cmps.fEnableComponents != TRUE)
	{
		cmps.fActiveDesktop = TRUE;
		cmps.fEnableComponents = TRUE;
		
		//Active ActiveDesktop
		//Activate ActiveDesktop
		hr = pActiveDesktop->SetDesktopItemOptions(&cmps,NULL);

		// Valide la mise à jour -> ActiveDessktop en marche
		// Validate the update -> ActiveDessktop running
		hr = pActiveDesktop->ApplyChanges(AD_APPLY_ALL);

	}

	//Ajoutons un item à ActiveDesktop
	//Add an item to à ActiveDesktop
	COMPONENT comp;
	memset(&comp,0,sizeof(comp));
	comp.dwSize = sizeof(comp);
	
	//iComponentType : Type de contrôle, peut être une page web, un ActiveX etc.
	//iComponentType : Control type, it could be a webpage, an ActiveX etc.
	comp.iComponentType = COMP_TYPE_WEBSITE;//COMP_TYPE_CONTROL;
	
	comp.fChecked = TRUE;
	comp.fDirty = FALSE;
	
	// Pas de barre de défilement
	// No Scrolling bar.
	comp.fNoScroll = TRUE;

	// Item en plein écran
	// Fullscreen Item
	comp.dwCurItemState = IS_FULLSCREEN;

	//Nom de l'item
	//Item name
	wcscpy(comp.wszFriendlyName,L"Poppyto Vidéo Desktop");
	

		char PathA[MAX_PATH+1];
		wchar_t PathW[MAX_PATH+1];
		memset(PathA,0,sizeof(PathA));
		memset(PathW,0,sizeof(PathW));

		//Construis l'URL de la page web
		//Build the URL webPage
		::GetCurrentDirectory(MAX_PATH,PathA);
		strcat(PathA,"\\index.html");

		//Conversion de la chaine en MultiByte pour COM
		//Convert string in Multibyte for COM

		MultiByteToWideChar(CP_ACP, 0, PathA,
								(int)strlen(PathA)+1, 
								PathW, sizeof(PathW));

		//URL de la page web à afficher -> "Répertoire Courant\index.html"
		//URL of the web page which must be shown -> "Current Directory\index.html"
		wcscpy(comp.wszSource,PathW);



	//Réglage de la fenêtre en mode cadre (plus de fullscreen)
	//Set the position of the window when it is not in fullscreen
	COMPPOS  comppos;
	comppos.dwSize = sizeof(COMPPOS);
	comppos.dwWidth = 640;
	comppos.dwHeight = 480;		
	comppos.fCanResize = FALSE;
	comppos.fCanResizeX = FALSE;
	comppos.fCanResizeY = FALSE;
	comppos.iLeft = 0;//100;
	comppos.iTop = 0;//20;
	comppos.izIndex = 0;
	comp.cpPos = comppos;
	



	//Ajout de l'item
	//Add the item
	hr = pActiveDesktop->AddDesktopItem(&comp,NULL);



	//E_FAIL est retourné quand l'item existe déjà
	//E_FAIL is returned when the item already exists
	if(hr == E_FAIL)
	{
		//Mise à jour de l'item car ile existe déjà (donc on ne peut pas le recréer au dessus)
		//Update the item because it already exists (so we can't recreate it above)
		hr = pActiveDesktop->ModifyDesktopItem(&comp,COMP_ELEM_ALL);
	}

	// Valide la mise à jour -> L'item est inséré
	// Validate the update -> The item is inserted
	hr = pActiveDesktop->ApplyChanges(AD_APPLY_ALL);

	// Libération : equivalent à l'operateur delete
	// Release :   similar to the delete operator
	pActiveDesktop->Release();





	//Verouille les items pour le redeimensionment
	//Lock items for resizing

	IActiveDesktopP *pActiveDesktopP;
	hr = CoCreateInstance(CLSID_ActiveDesktop, NULL, CLSCTX_INPROC_SERVER,
							IID_IActiveDesktopP, (void**)&pActiveDesktopP);
		
	pActiveDesktopP->SetSafeMode(SSM_SET);

	pActiveDesktopP->Release();



	//Change la couleur de plan arrière de la ListView du Bureau
	//Change Desktop/ListView item background

	int Elements = COLOR_BACKGROUND;
	COLORREF color = RGB(0,0,0);
	SetSysColors(1,&Elements, &color);




	//DésInitialise COM
	//UnInitialize COM
	CoUninitialize();

	return 0;
}