如何檢測Delphi 7上的Windows Aero主題？

Question

如何通過Delphi 7上的代碼檢測到用戶正在他的操作系統上運行Windows Aero主題？

Answer 1

我們需要使用的功能是Dwmapi.DwmIsCompositionEnabled，但不包括在Windows頭文件翻譯的是用Delphi 7船在Vista中加入，釋放後德爾福7.又崩潰的Windows XP應用程序 - 這樣的呼叫它在檢查if Win32MajorVersion >= 6後。

function IsAeroEnabled: Boolean; 
type 
    TDwmIsCompositionEnabledFunc = function(out pfEnabled: BOOL): HRESULT; stdcall; 
var 
    IsEnabled: BOOL; 
    ModuleHandle: HMODULE; 
    DwmIsCompositionEnabledFunc: TDwmIsCompositionEnabledFunc; 
begin 
    Result := False; 
    if Win32MajorVersion >= 6 then // Vista or Windows 7+ 
    begin 
    ModuleHandle := LoadLibrary('dwmapi.dll'); 
    if ModuleHandle <> 0 then 
    try 
     @DwmIsCompositionEnabledFunc := GetProcAddress(ModuleHandle, 'DwmIsCompositionEnabled'); 
     if Assigned(DwmIsCompositionEnabledFunc) then 
     if DwmIsCompositionEnabledFunc(IsEnabled) = S_OK then 
      Result := IsEnabled; 
    finally 
     FreeLibrary(ModuleHandle); 
    end; 
    end; 
end;