比较完美的实现Areo,也就是win7的毛玻璃.

Question

本帖最后由 lovestarbao 于 2012-04-30 00:35:43 编辑

Answer 1

using System.Runtime.InteropServices;
        [DllImport("kernel32")]
        static extern int GetVersionExA(ref OSVERSIONINFO 系统信息);
        [DllImport("user32")]
        static extern long GetWindowLongA(int hWnd, int nIndex);
        [DllImport("user32")]
        static extern int SetWindowLongA(int hWnd, int nIndex, long dwNewLong);
        [DllImport("user32")]
        static extern int SetLayeredWindowAttributes(int hWnd, int cr, int alp, int index);
        [DllImport("dwmapi")]
        static extern int DwmIsCompositionEnabled(ref int pfEnabled);
        [DllImport("dwmapi")]
        static extern int DwmEnableComposition(int uCompositionAction);
        [DllImport("dwmapi")]
        static extern int DwmExtendFrameIntoClientArea(int hWnd, ref _MARGINS pMarInset);
        [DllImport("dwmapi")]
        static extern int DwmEnableBlurBehindWindow(int hWnd, ref _DWM_BLURBEHIND pBlurBehind);        int hWnd = new int();//定义程序集变量        public struct OSVERSIONINFO
        {
            public int dwOSVersionInfoSize;
            public int dwMajorVersion;
            public int dwMinorVersion;
            public int dwBuildNumber;
            public int dwPlatformId;
        }
        public struct _MARGINS
        {
            public int cxLeftWidth;
            public int cxRightWidth;
            public int cyTopHeight;
            public int cyBottomHeight;
        }

Answer 2

        private void Form1_Load(object sender, EventArgs e)
        {
            hWnd = Handle.ToInt32();            //判断系统版本,6和6以上版本可以使用
            OSVERSIONINFO 版本信息 = new OSVERSIONINFO();
            版本信息.dwOSVersionInfoSize = 148;
            GetVersionExA(ref 版本信息);
            if (版本信息.dwMajorVersion < 6)
            {
                MessageBox.Show("当前系统版本无法使用Areo!");
                DestroyHandle();
            }            long nIndex = GetWindowLongA(hWnd, -20);
            nIndex = nIndex | 524288;
            SetWindowLongA(hWnd, -20, nIndex);
            SetLayeredWindowAttributes(hWnd, 16711680, 255, 1);
        }

Answer 3

        private void button1_Click(object sender, EventArgs e)
        {
            int pfEnabled = new int();
            DwmIsCompositionEnabled(ref pfEnabled);
            if (pfEnabled == 1)
            {
                MessageBox.Show("该系统开启了Areo效果");
            }
            else
            {
                MessageBox.Show("该系统没有开启Areo效果");
            }
        }        private void button2_Click(object sender, EventArgs e)
        {
            DwmEnableComposition(0);
            MessageBox.Show("已经在当前进程关闭Aero 退出进程后界面会自动恢复");
        }        private void button3_Click(object sender, EventArgs e)
        {
            DwmEnableComposition(1);
            MessageBox.Show("已经在当前进程开启Aero 退出进程后界面会自动恢复");
        }        private void button4_Click(object sender, EventArgs e)
        {
            this.BackColor = ColorTranslator.FromWin32(16711680);
            checkedListBox1.BackColor = ColorTranslator.FromWin32(16711680);
            progressBar1.BackColor = ColorTranslator.FromWin32(16711680);
            textBox1.BackColor = ColorTranslator.FromWin32(16711680);
            tabPage1.BackColor = ColorTranslator.FromWin32(16711680);
            tabPage2.BackColor = ColorTranslator.FromWin32(16711680);
            tabPage1.ForeColor = ColorTranslator.FromWin32(16711680);
            tabPage2.ForeColor = ColorTranslator.FromWin32(16711680);
            _MARGINS sRT = new _MARGINS();
            sRT.cxLeftWidth = -1;
            DwmExtendFrameIntoClientArea(hWnd, ref sRT);
        }

Answer 4

这不就是利用新系统提供的新API调用吗?还以为模拟实现哈.不过还是感谢分享.

Answer 5

这些api应该受windows版本的限制，某些版本不支持

Answer 6

以前做winform在win7 areo没发现有什么问题啊

Answer 7

long nIndex = GetWindowLongA(hWnd, -20);
        
这句报异常
“AccessViolationException异常，尝试读取或写人受保护的内存。这通常指示其他内存已损坏。”

Answer 8

句柄用IntPtr更好吧，用int的话，64位机不就完了？

Answer 9

擦 看到楼上说的 中文变量 我又上去看了下 果然 系统信息 囧rz
不过areo 我用SkinH_Net 解决 嘎嘎 自己写不好用哦..
不知道楼主这个 xp下实验过吗?

Answer 10

正在用WIN7的来试试了，留名收藏

Answer 11

上网本    用不了win7 好不  只能xp了