Efecto Aero Glass en AMS by Agotaras123

Ejemplos y plantillas para Autoplay Media Studio.
o, lo siento no lo habia notado :( pero gracias por hacermelo notar (:
el probelma es que en mi proyecto cuando introduzco el script en "global functions" y activo el plugin memory corro el programa y no se activa el efecto aero porque es?
si usas windows xp no funcionara.
no de hecho utilizo Win 7 solo no parece el aero simplemente el fondo solido de mi proyecto
y en la APZ que coloque yo la ejecutaste y se te ve el efecto o tampoco muestra el efecto?.
r34k if you don't want to mess about with adding all the added plugin the Patch 1.0.0.3 plugin will do all that for you and it includes the mem plugin you don't have to enable it in ams, but if you want to do it this way then you will need to add the function on show as well as the main function code on global. With this code you also need to enable a color on the background, you don't need to with patch

Agotrars123 version I would say do like so

Enable mem plugin
Enable Backgound color
Past full fucntion code in global like the apz and then
the function call on show with the right parts filled in

I think thats what you will need to do anyway.


r34k si usted don' t quiere ensuciar alrededor con el adición de todo el enchufable agregada el remiendo 1.0.0.3 enchufable hará todo el eso para usted e incluye el mem enchufable usted don' t tiene que permitirlo en el AMS, pero si usted quiere hacerlo esta manera entonces usted necesitará agregar la función en la demostración tan bien como el código de función principal en global. Con este código usted también necesita permitir un color en el fondo, usted don' necesidad de t con el remiendo
Versión Agotrars123 que diría tengo gusto tan Permita el mem enchufable Permita el color de Backgound Último código completo del fucntion en global como el apz y entonces la llamada de función en la demostración con las piezas correctas completadas Pienso que es lo que usted necesitará hacer de todos modos.
Thank's 4 the help patch, gracias por la ayuda Agotaras123 pero no logre solucionarlo :(, bien ahora les explico mas explicitamente...

-Requisitos

Windows 7 (Home Premium) Compatible con el efecto aero: ✔

Plugin "Memory" instalado y activado en el proyecto: ✔

Imagen

Script copiado a las Funciones Globales (Global Functions) de mi proyecto desde el archivo .APZ de Agotaras123 (: : ✔

Imagen

Fondo Negro en el proyeco: ✔

Imagen

Ejecución del Projecto sin ningun efecto :(

Imagen

-SCRIPT COPIADO:
function ExtendFrameIntoClientArea(nWndHnd, nLeft, nRight, nTop, nBottom)
	local sOSName = System.GetOSName();
	local nReturn = 0; -- Returns 0 if DWM Composition is disabled, one of the function returned an error, or the wrong OS is running for this.
	local sError  = "";
	if(sOSName=="Windows Vista")or(sOSName=="Windows 7")then
		Memory.OpenLibrary(1, "dwmapi.dll")
		local lpdwEnabled = Memory.Allocate(4);
		if(lpdwEnabled>0)then
			local F_DWM_ICE = Memory.OpenFunction(1, "DwmIsCompositionEnabled", DLL_CALL_STDCALL, DLL_RETURN_VOID);
			local s_ice = Memory.CallFunction(F_DWM_ICE,lpdwEnabled);
			if(Memory.GetInt(lpdwEnabled)>0)then
				lptrMARGIN = Memory.CreateStructure("int,int,int,int");
				if(lptrMARGIN>0)then
					Memory.SetStructureData(lptrMARGIN, 1, 0, nLeft, "");
					Memory.SetStructureData(lptrMARGIN, 2, 0, nRight, "");
					Memory.SetStructureData(lptrMARGIN, 3, 0, nTop, "");
					Memory.SetStructureData(lptrMARGIN, 4, 0, nBottom, "");
					local F_DWM_EFICA = Memory.OpenFunction(1, "DwmExtendFrameIntoClientArea", DLL_CALL_STDCALL, DLL_RETURN_VOID);
					if(Memory.CallFunction(F_DWM_EFICA, nWndHnd, lptrMARGIN)==0)then -- Returns S_OK (0)
						nReturn = 1;
						sError = "OK";
					else
						sError = "DwmExtendFrameIntoClientAre returned an error code!"; 
					end
					Memory.Free(lptrMARGIN); -- Free it, DWM copies the data.
				else
					sError = "Could not allocate MARGIN structure!";
				end
			else
				sError = "Dwm Composition is not enabled!";
			end
			Memory.Free(lpdwEnabled); -- Free those 4 bytes too ofcourse.
		else
			sError = "Could not allocate memory for lpdwEnabled";
		end
		Memory.CloseLibrary(1);
	end
	
	return nReturn,sError;
end

--***********************************************************************************---

function SHBrowseForFolder(strTitle)

	assert( type( strTitle  )  == "string", "SHERR: Title not a string: "..type(strTitle));
	
	lpszTitle = Memory.Allocate(String.Length(strTitle)+1);
  	
  	pbuff = Memory.Allocate(1024);

 	Memory.PutString(lpszTitle, strTitle,-1,"Ascii");

	LPBROWSEINFO = Memory.CreateStructure("long, long, long, long, long, long, long, long");

--[[
typedef struct _browseinfo {
    HWND hwndOwner;
    PCIDLIST_ABSOLUTE pidlRoot;
    LPTSTR pszDisplayName;
    LPCTSTR lpszTitle;
    UINT ulFlags;
    BFFCALLBACK lpfn;
    LPARAM lParam;
    int iImage;
]]--
	
	--handle
	hwndOwner=Application.GetWndHandle();
	--Flags
	--BIF_STATUSTEXT=4
	BIF_RETURNONLYFSDIRS=1
	--BIF_EDITBOX=16
	--BIF_NEWDIALOGSTYLE=64
	BIF_DONTGOBELOWDOMAIN=2
	BIF_BROWSEFORCOMPUTER=4096
	--set flags
	ulFlags=BIF_RETURNONLYFSDIRS+BIF_BROWSEFORCOMPUTER+BIF_DONTGOBELOWDOMAIN;
	
	Memory.SetStructureData(LPBROWSEINFO, 1, 0, hwndOwner, "");
	Memory.SetStructureData(LPBROWSEINFO, 4, 0, lpszTitle, "");
	Memory.SetStructureData(LPBROWSEINFO, 5, 0, ulFlags, "");

	pidl = DLL.CallFunction(_SystemFolder .. "\\shell32.dll", "SHBrowseForFolder", LPBROWSEINFO, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
	
	DLL.CallFunction(_SystemFolder .. "\\shell32.dll", "SHGetPathFromIDList", pidl .. "," .. pbuff, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
	
	nResult = Memory.GetString(pbuff, -1, "Ascii");
	
	if nResult == "" then
		nResult = "CANCEL"
	end
	
	--clean
	Memory.FreeStructure(LPBROWSEINFO)
	Memory.Free(pbuff)
	Memory.Free(lpszTitle)
	
	return nResult;
end

--Test
folder = SHBrowseForFolder("Put your text here :)")

:SOS:

Gracias por su valiosa ayuda a todos en el timepo de mi estancia en este foro :friends:
bueno amigo publica tu APZ para verla y así ver si el problema radica en tu ordenador o en el script.
You forgot to call the function on show.


Double Click the page and you will see the page settings the 3ed tab yo will find
the scripts the On Show is there, you need to put it on the On Show because the window
must be made before the function is able to fire.
On Show
ExtendFrameIntoClientArea(Application.GetWndHandle(), 0, 0, 0, -1);
WOOOOOOOOJOOOOOOOO! THANK'S Patch n' Agotaras123 your's save my life :D n' this save a lot o people on this forum (: :yeah:

Imagen
No problem glad you got it to work.
thanks
gracias
interesante, gracias!
parece interesante gracias
Awesome once again
que plantoso lo que siempre habia buscado !! exelente gracias!!!
Nice
gracias!
only in win7 :|