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]

Responder a