PC World Türkiye Online - Görsel Programlama

DUVAR KAĞIDINI DEĞİŞTİRMEK

AŞAĞIDAKİ küçük programı yazarak Windows'unuzun duvar kağıdının değişmesini ve tıpkı ' Uygula' tuşuna basılmış gibi anında görüntülenmesini sağlayabilirsiniz. WIN.INI dosyasına yazılmış değişikliklerin anında uygulanması için benzer kodları siz de programlarınızda kullanabilirsiniz.
Öncelikle aşağıdaki sabitleri programdan ayrı bir modüle yazın:

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = 1 ' WIN.INI sabitlarini güncelle
Const SPIF_SENDWININICHANGE = 2 ' Win.ini dosyasını değiştir ve bunu tüm programlara bildir.

Altyordamı çağırmak için aşağıdaki satırları kullanın:
Call WriteIniFile(' C:\WINDOWS\WIN.INI' , ' DeskTop' , ' TileWallPaper' , sValue, iEcode)
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal sBMPFileName, SPIF_UPDATEINIFILE)