标题:请教 griefforyou版主
只看楼主
msxjc
Rank: 1
等 级:新手上路
帖 子: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
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
win98启动画面好像不用API就能完成,那个启动画面应该在windows下的LOGO.BMP。桌面不清楚。
2005-04-10 18:40
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
锁定当前的桌面图片 不允许更改,可以在注册表里设置。具体哪个键值我也记不清楚了。 Window 优化大师里就有这个设置

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


天津网站建设 http://www./
2005-04-10 21:33
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分: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
msxjc
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2005-3-28
得分:0 
那要怎么更换启动画面啊?(就是那个蓝天白云啊)

2005-04-10 22:06
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
晕,这年头了,还有谁用Win98?

天津网站建设 http://www./
2005-04-10 23:37



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-15298-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.226243 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved