Delphi实现win10视频壁纸

中了抖音的毒，设置小姐姐视频作为win10壁纸；

关键点：获取桌面壁纸句柄

环境依赖：Win10 64位

vlc 32位播放器

获取桌面壁纸句柄

这里涉及到一个重要的api：

SendMessageTimeout(FindWindow('progman', nil), $052c, 0 ,0, SMTO_NORMAL, $3e8,nil);

利用Microsoft_Spy++查看

使用上面提到的api能达到的效果：

具体实现函数

//获取win10系统中第二层窗口句柄（从最底层窗口开始）
function  GetHwnd:hwnd;
var tmp_hwnd,child_hwnd:hwnd;windowname,windoclasswname,child_windowname,child_windoclasswname:array[0..255] of char;
begin//针对win10{桌面的结构搞清楚了。相当于图像处理中的四个图层，而且是透明图层。按类名由前至里的排序为：SysListView32SHELLDLL_DefViewProgman#32769还记得我说的Progman和自己的两个子窗口分家的问题吗。它们分家的时机就是收受到一个message，一个微软就没有公开的message，连宏定义都没有。只要向Progman窗口发送这个消息，Progman就自动分家。相关代码如下：SendMessageTimeout(Program, 0x052c, 0 ,0, SMTO_NORMAL, 0x3e8,nullptr);}SendMessageTimeout(FindWindow('progman', nil), $052c, 0 ,0, SMTO_NORMAL, $3e8,nil);//遍历窗口  获取不含子窗体且父窗体是progman的 WorkerW窗体 句柄tmp_hwnd := GetWindow(GetDesktopWindow, GW_CHILD);while tmp_hwnd<>0 dobeginwinapi.Windows.GetClassName(tmp_hwnd,windoclasswname,256);   //获取窗体类名称winapi.Windows.GetWindowText(tmp_hwnd,windowname,256);       //获取窗体标题child_hwnd := winapi.Windows.GetWindow(tmp_hwnd,GW_CHILD);   //获取子窗体句柄if  (windoclasswname = 'WorkerW') and ( GetWindow(tmp_hwnd, GW_OWNER) = FindWindow('progman', nil)) thenbegin//showmessage('符合要求的WorkerW窗体句柄：'+inttostr(tmp_hwnd));result := tmp_hwnd;end;tmp_hwnd := GetWindow(tmp_hwnd, GW_HWNDNEXT);   //获取下一窗口句柄end;
end;

最终效果

不能上传gif图片，就只能贴张图片了

成品下载

DELPHI--将视频设置为win10壁纸

Delphi实现win10视频壁纸相关推荐

win10动态壁纸怎么设置_想把我的女朋友设置为动态壁纸：看过来，教你啊
动态壁纸,最近已经越来越受用户的欢迎.炫酷的桌面效果非常动人,让人蠢蠢欲动,但有非常多的网友都不会设置win10动态桌面.所以今天小编就把设置win10动态桌面的方法告诉大家,下面就是设置win10动 ...
计算机桌面壁纸怎样拉伸,win10桌面壁纸怎么拉伸？手把手教你拉伸win10桌面壁纸的方法...
现在大家喜欢用自己拍摄的照片做电脑桌面壁纸,设置好win10桌面壁纸后,总感觉壁纸很显大,想要重新拉伸一下.那么win10桌面壁纸如何拉伸?针对此疑问,小编手把手教你拉伸win10桌面壁纸的方法. 1 ...
火萤视频壁纸(让你的桌面丰富多彩)
本文是众多使用技巧中其中的一篇, 全部使用技巧点击链接查看, 或直接查看本专栏其他文章, 保证你收获满满我主页中的思维导图中内容大多从我的笔记中整理而来,相应技巧可在笔记中查找原题, 有兴趣的可以去 ...
Lively Wallpaper —— 优秀的开源视频壁纸软件
推荐一个仅次于WallPaper Engine的开源视频壁纸软件--Lively Wallpaper 如果你不需要创意工坊这样的东西,仅仅需要的是本地视频作为桌面,那么这款软件是你的天菜! 下载地址 ...
【小程序源码】视频壁纸支持多种分类短视频另外也有静态壁纸
这是一款壁纸的微信小程序源码其实这款小程序也可以说是短视频小程序都可以该款小程序全采集, 大家应该知道小编之前也发过一款动态壁纸的小程序不过那款是没有分类的,而这款不一样了,内包含了多种分类相 ...
iphone se 一代不完美越狱 14.6 视频壁纸教程(踩坑笔记)
iphone se 一代不完美越狱 14.6 加视频壁纸教程-踩坑笔记越狱流程 1.爱思助手制作启动u盘坑点: 2.越狱好后视频壁纸软件 1.源 2.软件安装越狱流程 1.爱思助手制作启动 ...
android视频壁纸源码,Android视频壁纸的实现
视频壁纸属于动态壁纸,所以视频壁纸就可以用Android系统提供的动态壁纸服务来实现.首先先介绍一下在实现过程中会用到的几个类. WallpaperManager Android提供的用于管理壁纸的类 ...
wallpaper怎么导入视频_怎样制作Wallpaper Engine视频壁纸制作视频壁纸方法图文教程...
Wallpaper Engine突然间在国内就大火了起来,很多用户纷纷给自己的电脑换上了新妆.然而也有一些用户觉得网上的资源自己都不喜欢,想要自己制作一款满意的视频壁纸.那么,如何制作Wallpape ...
制作简单的视频壁纸程序，C语言可完成
简易的壁纸程序该实现来自于:https://www.bilibili.com/video/BV1HZ4y1978a 附上作者b站:偶尔有点小迷糊 (https://space.bilibili.co ...

Delphi实现win10视频壁纸

Delphi实现win10视频壁纸相关推荐

最新文章

热门文章