Usa assim: procedure AeroSetEnable (enable: boolean); const DWM_EC_DISABLECOMPOSITION = 0; DWM_EC_ENABLECOMPOSITION = 1; var ok: integer; begin if DWMlibrary <> 0 then begin if @DwmEnableComposition <> nil then begin if enable then DwmEnableComposition (DWM_EC_ENABLECOMPOSITION) else DwmEnableComposition (DWM_EC_DISABLECOMPOSITION); end; end; end;
Modo de uso: DWMlibrary := LoadLibrary ('DWMAPI.dll'); if DWMlibrary <> 0 then Begin DwmEnableComposition := GetProcAddress (DWMLibrary, 'DwmEnableComposition'); End; -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com 2009/5/15 Robson Tazinaffo <robsontazina...@hotmail.com> > > > Como desabilitar o Aero ( Composição de Area de Trabalho ) do Windows Vista > via programação ??? > > > -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]