大佬教程收集整理的这篇文章主要介绍了如何检测Delphi 7上的Windows Aero主题?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
如何检测用户是通过Delphi 7上的代码在他的操作系统上运行Windows Aero主题?
WPF:使窗口不可调整,但保持框架?
有没有办法改变非客户区的Windows Aero颜色?
我想在特定的航空窗口上禁用阴影效果
自己的C#应用程序中的Windows Aero区域
如何在Windows 7中使用Python进行截图?
我们需要使用的函数是Dwmapi.DwmIsCompositionEnabled ,但是这并不包含在Delphi 7附带的Windows头文件中,并且在Delphi 7中添加了,并且在Delphi 7中发布。它也在Windows XP上崩溃了,所以在之后调用它检查if Win32MajorVersion >= 6 。
function ISAEroEnabled: Boolean; type TDwmIsCompositionEnabledFunc = function(out pfEnabled: BOOL): HRESULT; stdcall; var IsEnabled: BOOL; moduleeHandle: HMODULE; DwmIsCompositionEnabledFunc: TDwmIsCompositionEnabledFunc; begin Result := false; if Win32MajorVersion >= 6 then // Vista or Windows 7+ begin moduleeHandle := LoadLibrary('dwmapi.dll'); if moduleeHandle <> 0 then try @DwmIsCompositionEnabledFunc := GetProcAddress(moduleeHandle,'DwmIsCompositionEnabled'); if Assigned(DwmIsCompositionEnabledFunC) then if DwmIsCompositionEnabledFunc(IsEnabled) = S_OK then Result := IsEnabled; finally FREELIbrary(moduleeHandlE); end; end; end;
以上是大佬教程为你收集整理的如何检测Delphi 7上的Windows Aero主题?全部内容,希望文章能够帮你解决如何检测Delphi 7上的Windows Aero主题?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。