Misliš na promenu boje desktopa ili ubacivanje wallpapera ? Ako je ovo drugo, probaj ovaj kod koji sam iskopao negde, ali ne znam da li šljaka pošto ga nisam isprobao, nikad mi nije zatrebalo.
Code:
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = 1
Private Sub Command1_Click()
Dim upd As Integer
If Check1.Value = vbChecked Then
upd = SPIF_UPDATEINIFILE
Else
upd = 0
End If
SystemParametersInfo SPI_SETDESKWALLPAPER, _
0, [putanja do slike], upd
End Sub
Ovaj check služi da ako je čekiran apdejtuješ registry.
[Ovu poruku je menjao mladenovicz dana 07.11.2004. u 20:17 GMT+1]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti