怎样设置桌面？请指教！(50分)

流

流氓兔candy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #1

怎样将image控件里的图片设为桌面背景，如何控制“平铺、拉伸、居中”？谢谢！

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #2

先讲其savetofile，然后改注册表的HKEY_CURRENT_USER/Control Panel/desktop里的
"Wallpaper"="你saveto后的文件名"
再用sendmessage象桌面随便发个信息比如wm_paint就可以了。
至于平铺什么的可以看
[HKEY_CURRENT_USER/Control Panel/desktop]
里的内容。

 

S

spymaster

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
ADeskTop:IActiveDesktop;
wallpaperwideChar;
begin
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
wallpaper:=Image1.Picture;
ADeskTop.SetWallpaper(wallpaper,0);
ADeskTop.ApplyChanges(AD_APPLY_ALL);
end;
试一试不一定行

 

流

流氓兔candy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #4

白河愁,还能具体点吗？我是新手：）

 

流

流氓兔candy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #5

多人接受答案了。