设置墙纸(可用htm,bmp)
来源:互联网 发布:js怎么给元素改变属性 编辑:程序博客网 时间:2024/04/20 22:50
procedure setwallpic(picpath :string);
var
hr:hresult;
wall:iactivedesktop;
aa:pwidechar;
begin
activex.CoInitialize(nil);
hr:=CoCreateInstance(CLSID_ActiveDesktop, nil, CLSCTX_INPROC_SERVER,
stringtoguid(SID_IActiveDesktop),wall);
if hr=s_ok then
begin
getmem(aa,255);
stringtowidechar('',aa,255);
try
wall.SetWallpaper(aa,0);
stringtowidechar(picpath,aa,255);
wall.SetWallpaper(aa,0);
wall.ApplyChanges(AD_APPLY_ALL);
freemem(aa,255);
except
on e:exception do
begin
wall.._Release;
showmessage(e.message);
end;
end;
end;
activex.CoUninitialize;
end;
end;
end;
- 设置墙纸(可用htm,bmp)
- 设置墙纸
- 设置Windows墙纸
- HOW TO:墙纸设置
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 如何在程序中动态设置墙纸
- 将Android Activity背景设置为墙纸
- 如何在程序中动态设置墙纸
- android2.3 Launcher墙纸设置代码追踪
- PAIP.在程序中设置壁纸墙纸
- OnLongClickListener长按事件设置墙纸
- 如何在程序中动态设置墙纸
- Launcher App:墙纸太大造成设置墙纸时产生“OutOfMemoryError: bitmap size exceeds VM budget”
- 为JEdit设置墙纸(add wallpaper for jedit)
- 如何将照片设置为手机墙纸/桌面
- 在asp.net中为Web用户控件添加属性和事件
- 巧破IP地址下载限制
- 快快丢掉ASP遗留的各大类陈旧习惯
- datagrid的正反双向排序
- 在分页状态下删除纪录的问题
- 设置墙纸(可用htm,bmp)
- 使用DataGrid动态绑定DropDownList
- 谈JBoss技术架构与服务
- DataGrid删除确认及Item颜色交替
- 下雪了,来武汉三年后的又一场雪。
- KDevelop aclocal.m4:3009 解决办法
- 如何在DataGrid里面产生滚动条而不滚动题头
- MS SQL Server 的安全配置
- datagrid分页问题(前后跳页)《控件版》