请教　griefforyou版主 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 请教　griefforyou版主

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 792 人关注过本帖

标题：请教　griefforyou版主

只看楼主加入收藏

msxjc

等　级：新手上路
帖　子：83
专家分：0
注　册：2005-3-28
结帖率：50%

楼主

问题点数：0 回复次数：5

请教　griefforyou版主

请教　griefforyou版主：如何使用vb来更换windows 98的启动画面和桌面？还有更换了桌面以后，可以锁定当前的桌面图片，不允许更换。要怎么实现？

[此贴子已经被作者于2005-4-10 18:12:48编辑过]

搜索更多相关主题的帖子: griefforyou　版主　

2005-04-10 18:11

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 2 楼

得分:0

win98启动画面好像不用API就能完成，那个启动画面应该在windows下的LOGO.BMP。桌面不清楚。

2005-04-10 18:40

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 3 楼

得分:0

锁定当前的桌面图片不允许更改，可以在注册表里设置。具体哪个键值我也记不清楚了。 Window 优化大师里就有这个设置

图片附件: 游客没有浏览图片的权限，请登录或注册

[此贴子已经被作者于2005-4-10 21:49:02编辑过]

天津网站建设 http://www./

2005-04-10 21:33

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 4 楼

得分:0

我写的两个函数 Private Const SPI_SETDESKWALLPAPER = 20 Private Const SPIF_UPDATEINIFILE = &H1 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Sub SetWallPaper() Dim WinDir As String Dim FilePath As String WinDir = Environ("windir") FilePath = IIf(Right(WinDir, 1) = "\", WinDir, WinDir & "\") & "MyProc.bmp" SavePicture Picture1.Image, FilePath Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, FilePath, SPIF_UPDATEINIFILE) End Sub

Private Sub ClearWallPaper() Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE) End Sub

[此贴子已经被作者于2005-4-10 21:38:17编辑过]

天津网站建设 http://www./

2005-04-10 21:37