title image


Smiley Re: Desktophintergrundbild in der Win.ini mit VB 5.0 Program ändern ?
'in ein Modul unter "Allgemein Deklaration" einfügenDeclare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongPublic Const SPI_SETDESKWALLPAPER = 20Public Const SPIF_SENDWININICHANGE = &H2Public Const SPIF_UPDATEINIFILE = &H1Sub SetWallpaper(BmpFile As String)Dim lretVal As LongIf Dir$(BmpFile) > "" ThenlretVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, BmpFile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)ElselretVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(none)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)End IfEnd Sub'Schaltfläche Command1 auf FormPrivate Sub Command1_Click()Dim lretVal As LongCall SetWallpaper("C:\temp\test.bmp")End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: