aeroglass enable/disable

[paritycheck]

Der folgende Code deaktiviert Aero solange deine Anwendung gestartet ist.

Delphi-Quellcode:

const
  DWM_EC_DISABLECOMPOSITION = 0;
  DWM_EC_ENABLECOMPOSITION = 1;

function DwmEnableComposition(uCompositionAction: cardinal): cardinal; stdcall; external 'dwmapi.dll' name 'DwmEnableComposition';

procedure TForm1.Button1Click(Sender: TObject);
begin
  DwmEnableComposition(DWM_EC_DISABLECOMPOSITION);
end;
//einschalten dann wieder mit DWM_EC_ENABLECOMPOSITION;

Gruss