rzMagnifier - Bildschirmlupe+Colorpicker, Version 1.3

[extrem]

Zitat von taaktaak:

...
Bisher habe ich aber noch keine Informationen zu folgenden Fragen gefunden...

• Ist der VISTA "Aero-Glass-Effect" aktiviert?

...

Hallo

versuche es doch mal mit der API Funktion DwmIsCompositionEnabled.

Delphi-Quellcode:

function IsCompositionEnabled: boolean;
var
  DwmIsCompositionEnabled : function(pfEnabled: PBoolean): HRESULT; stdcall;
  hDwmapi : THandle;
  Enabled: BOOL;
begin
  Result := false;
  if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 6) then
  begin
    hDwmapi := LoadLibrary('dwmapi.dll');
    if hDwmapi <> 0 then
      try
        DwmIsCompositionEnabled := GetProcAddress(hDwmapi, 'DwmIsCompositionEnabled');
        if Assigned(DwmIsCompositionEnabled) then
          Result:= (DwmIsCompositionEnabled(@Enabled) = S_OK) and Enabled;
      finally
        FreeLibrary(hDwmapi);
      end;
  end;
end;