如何更换桌面？(50分)

B

Ben7980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-07

• #1

sos
更换桌面，听说用systemparametersinfo函数，但怎么执行函数失败呢？
系统2000+Delphi7，不知道该函数的执行是不是有的条件，大家一起来说说。

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-07

• #2

你用这句再试一下：）
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(sPicFileName),
SPIF_SENDCHANGE + SPIF_UPDATEINIFILE);

 

B

Ben7980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #3

按照miaofeng的做法还是不行

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #4

哦？
我这里是可以的，而且用了很久了，应该没有问题的
你把你整个更换桌面的代码放上来看看，包括更改注册表部分的

 

B

Ben7980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #5

可以告诉我要更改什么地方的注册表以及如何更改么？

 

B

Ben7980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #6

我之前并不知道需要更改注册表之类的咚咚，惭愧
也不曾改过
谢谢

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #7

HKEY_CURRENT_USER/Control Panel/Desktop下的Wallpaper控制当前的桌面是什么图片
先将Wallpaper改为你希望的图片，然后再调用SystemParametersInfo函数，通知系统桌面图片已经改变了，这样就可以更换桌面图片了。

 

B

Ben7980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #8

好，谢谢