程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi編程控制壁紙

delphi編程控制壁紙

編輯:Delphi

控制Windows的桌面壁紙是一些看圖工具常有的功能,要實現該功能是非常容易的,以下的程序使壁紙換為我們想要的圖片,如果THEPCHAR為空,那麼就取消壁紙,變為Win默認色彩;但這種方法只是暫時的,在WINDOWS重新啟動後還是恢復原來的位圖,所以要永久保留還需要對WIN.INI文件進行改寫操作,才能保存住我們改動的圖片不被替換。但這種暫時性也好在讓我們可以實現定時更換桌面圖片功能:

var THEPCHAR:pchar;
begin
THEPCHAR:=e:\a.jpg;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE)
end;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved