Buyeya
19 de Enero del 2004

Hola, necesitaría saber que variación habria que hacer para poder usarla en xp, en win98 anda bien.

en el modulo esta declarada
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

y para llamarla, la uso de esta manera en win98

'SystemParametersInfo 97&, True, blnOld, 0&
o
'Call SystemParametersInfo(97, True, "1", 0)

sdemingo
19 de Enero del 2004

'This project needs
'- a common dialog box
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
'- a button
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'Set the commondialogbox' title
CDBox.DialogTitle = "Choose a bitmap"
'Set the filter
CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Change the desktop's background
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, CDBox.FileName, SPIF_UPDATEINIFILE
End Sub
Private Sub Form_Load()
Command1.Caption = "Set Wallpaper"
End Sub

Buyeya
19 de Enero del 2004

Hola, sabés que ya probé este código, y no me bloquea.. la barra.. y tampoco, me establece el papel de fondo, que selecciono
ya lo has probado este código? o tenés otra sugerencia, gracias