WindowCompositionAttributeData = packed record However, since aero glass is available in Windows 10, we need to call the undocumented SetWindowCompositionAttributefunction from user32.dllin order to enable aero glass, because it is not entirely backward compatible, but don’t worry, it is very easy to use that function : That might be enough on Windows Vista/7, but on Windows 8/8.1 it won’t do anything as well on Windows 10. If nil else ShowMessage( ' Aero is Disabled ' ) HDWM: = LoadLibrary( ' dwmapi.dll ' = GetProcAddress(hDWM, ' DwmIsCompositionEnabled ' ) Ĭolor: = GetProcAddress(hDWM, ' DwmExtendFrameIntoClientArea ' ) DwmIsCompositionEnabled: function (pfEnabled: PBOOL):HRESULT stdcall ĭwmExtendFrameIntoClientArea: function (hWnd: HWND Margins: PRect):HRESULT stdcall
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |