怎么用程式使墙纸使用jpg格式的图(50分)

  • 主题发起人 主题发起人 wlyft
  • 开始时间 开始时间
W

wlyft

Unregistered / Unconfirmed
GUEST, unregistred user!
用bmp图的方法我已经知道了!
 
没看懂你的意思,呵呵
 
uses  ....,jpeg,.....
 
我做一自动更换墙纸的程式但更换的墙纸只能是.bmp文件,但我手动更换墙纸发现也可以用<br>。JPG的文件,请问当以JPG文件做为墙纸时程式应该怎么写?[:D]
 
来说说吧!
 
在程序里转换成一个BMP临时文件先,然后按BMP文件的方法来做。
 
首先你必须用IActiveDesktop启动活动桌面,然后就可以使用JPG的了,详细的代码和资料<br>以前有过,我主页的资料包里面有Test Ok的Delphi源代码:<br>http://kingron.myetang.com<br>当然,如果你不愿意使用活动桌面,那么就只有使用:卷起千堆雪tyn, 的方法了,用图片<br>转换的方法就可以了。
 
to 卷起千堆雪tyn<br>&nbsp; &nbsp;你这样会不会比activedesktop更耗资源?
 
多人接受答案了。
 
agree with up .<br><br>uses Jpeg;<br><br>var<br>&nbsp; jpg :TJpegImage;<br>&nbsp; bmp :TBitmap;<br>begin<br>&nbsp; ....................<br>&nbsp; jpg :=TJpegImage.Create;<br>&nbsp; jpg.LoadfromFile('.......');<br>&nbsp; bmp :=TBitmap.Create;<br>&nbsp; bmp.Assign(jpg);<br>&nbsp; ...........................<br>&nbsp; bmp.Free;<br>&nbsp; jpg.Free;<br>end;<br><br>to wlyft:<br>&nbsp; &nbsp;这不会耗什么资源的,仅仅是将jpg转化为bmp而已,当然文件是增大了.
 
后退
顶部